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Preface 


The  purpose  of  this  effort  is  to  explore  the  use  of  multiple  features  and  multiple 
recognizers  for  recognizing  isolated  speech.  Multiple  recognitions  are  performed  inde¬ 
pendently  for  each  unknown  word.  The  results  are  then  fused  together  using  feature  fusion 
to  determine  a  single  recognition  result. 

In  performing  this  study,  I  am  deeply  indedted  to  my  wife  whose  encouragement 
helped  me  do  my  best,  and  whose  timely  distractions  helped  me  to  keep  everything  in  per¬ 
spective. 


Thomas  F.  Rathbun 
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Abstract 

The  purpose  of  this  study  is  to  demonstrate  the  feasibility  of  using  multiple  feamres 
and  multiple  recognizers  to  perform  isolated  word  recognition.  This  is  accomplished  by 
performing  multiple  independent  recognition  tests  and  fusing  the  results  together  to  get  a 
single  recognition  result. 

The  speech  data  is  recorded  and  each  word  is  extracted  into  a  separate  file.  Eight 
features  are  calculated  for  each  word.  The  feamres  are  calculated  on  5 12  sample  time  slices 
and  produce  16  component  vector  outputs.  The  three  recognizers  use  the  eight  feamres  to 
produce  a  total  of  24  error  distance  lists.  These  lists  are  then  fused  together  by  adding  the 
error  values  corresponding  to  each  word.  The  word  with  the  smallest  fused  error  value  is 
declared  the  recognition  winner. 

Talker  dependent  and  independent  tests  were  run  on  a  word  set  of  zero  through  nine 
and  A  through  Z.  The  talker  dependent  tests  achieved  accuracies  between  87%  and  100% 
depending  on  the  talker.  The  talker  independent  tests  achieved  accuracies  between  8 1  %  and 
97%. 

Recommendations  for  fumre  efforts  include  testing  different  feamres,  adding  more 
recognizers,  and  using  a  more  sophisticated  fusion  scheme.  Neural  networks  should  prove 
helpful  for  the  latter. 
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SPEECH  RECOGNITION  USING  MULTIPLE 


FEATURES  AND  MULTIPLE  RECOGNIZERS 


I.  Introduction 

Automatic  Speech  Recognition  (ASR)  is  the  ability  of  a  computer  to  recognize  a 
word  from  an  acoustic  signal.  The  human  ear  and  brain  perform  this  type  of  recognition 
with  incredible  speed  and  precision.  Even  thcwgh  computers  do  not  possess  this  same  abil¬ 
ity,  some  progress  is  being  made.  Researchers  and  engineers  are  continuing  their  40  plus 
years  of  effort  to  duplicate  the  human  speech  recognitiai  process.  To  date,  there  are  com¬ 
mercial  ASR  systems  available,  but  from  a  human  factors  stand  point,  many  are  limited  or 
not  practical. 

The  benefits  of  a  human-like  ASR  system  are  almost  limitless.  Governments  and 
companies  everywhere  will  benefit  as  the  productivity  of  the  everyday  computer  user  in¬ 
creases.  The  military  could  better  improve  the  man-machine  interfaces  on  many  of  its 
weapons  systems.  Handicapped  persons  could  be  better  integrated  into  society. 

ASR  systems  hold  great  promise  for  the  future  of  society.  Their  development  has 
been  long  in  coming  and  there  is  still  much  work  to  be  daie.  Although  researchers  may  be 
progressing  in  small  steps,  a  truly  robust  ASR  system  will  one  day  be  a  reality. 
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1.1  Background 

In  the  ISOOs,  Fourier  proved  that  any  repeating  signal  can  be  represented  by  an  in¬ 
finite  sum  of  sine  or  cosine  waves.  The  1940s  saw  the  Fourier  transform  applied  to  speech 
after  the  invention  of  the  spectrogram  machine  (1).  This  invention  gave  speech  researchers 
their  first  look  at  the  frequency  components  of  speech,  enabling  them  to  begin  the  quest  for 
automated  speech  recognition.  In  the  late  1940s,  following  the  invention  of  the  computer, 
scientists  automated  the  calculation  of  Discrete  Fourier  Transform  (DFT)  coefficients  (2). 
The  Fast  Fourier  Transform  (FFT)  algorithm,  developed  in  the  1960s,  executes  in 
0(nlog(n))  time  and  improves  the  speed  of  the  DFT  algorithm. 

Early  attempts  to  recognize  speech  were  unsophisticated.  Since  the  number  of  fun¬ 
damental  speech  sounds  in  any  language  is  finite,  researchers  attempted  to  map  FFT  coef¬ 
ficients  to  fundamental  sounds  of  the  language.  This  attempt  failed  when  a  consistent 
mapping  between  spectrogram  vectors  and  fundamental  speech  sounds  could  not  be  found 
(2). 

In  the  1970s,  researchers  used  pattern  recognition  techniques  to  match  the  input 
speech  with  stored  patterns  of  speech.  A  recurring  problem  in  speech  pattern  matching  is 
the  variation  in  the  length  of  spoken  words.  Generally,  the  same  person  will  not  say  the 
same  word  at  the  same  rate  (1).  Thus,  there  is  a  need  for  the  words  in  a  speech  recognition 
system  to  be  time  normalized.  The  most  successful  technique  for  time  normalization  is  an 
algorithm  called  Dynamic  Time  Warping  (DTW).  Researchers  such  as  Itakura-1975,  White 
and  Neely-1976,  and  Sakoe  and  Chiba-1978,  developed  DTW  algorithms  (3:297).  DTW  is 
sometimes  called  dynamic  programming  because  it  is  implemented  with  dynamic  program¬ 
ming  techniques  (3:299). 

Many  new  techniques  for  speech  recognition  emerged  in  the  1980s.  The  Kdionen 
neural  network,  used  to  cluster  similar  speech  sounds,  and  multilayer  perceptron  neural  net- 
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works,  used  to  segment  and  classify  speech,  were  the  subjects  of  extensive  research  at  AFIT 
(4)(5)(6).  The  Hidden  Markov  Model  (HMM)  is  used  to  model  speech  statistically  and  is 
the  subject  of  much  research  in  speech  recogniticMi. 

12  Problem  Statement 

The  purpose  of  this  thesis  is  to  develop  and  implement  a  multi-feature  multi-recog¬ 
nizer  system  for  word  recognition  of  acoustic  signals. 

1.3  Research  Objectives 

To  develop  a  modular  feature  independent  recognition  software  system. 

To  develop  multiple  features  to  use  for  recognition. 

To  develop  a  feature  image  pattern  recognition  algorithm  for  speech. 

1.4  Research  Questions 

What  is  the  recognition  accuracy  for  each  feature  and  each  algorithm? 

What  is  the  effect  on  the  feature  fiisicm  recogniticMi  accuracy  when  adding  addi¬ 
tional  features? 

What  is  the  effect  on  recognition  accuracy  when  using  different  types  of  pattern 
recognition  algorithms? 

What  is  the  recognitiai  accuracy  of  the  two  dimensional  pattern  recogniticm  algo¬ 
rithm  and  does  it  help  in  multi-feature  fusiot? 

1.5  Definitions 

Features  of  Speech  Characteristics  of  speech  are  derived  from  the  acoustic  wave 
form.  Topical  features  include  the  Fast  Fourier  Transform,  formants,  linear  cepstrums,  Mel 
cepstrums,  linear  predictive  power  spectrums,  and  using  the  difference  between  time  slices 
of  the  aforementioned  features  (3:293). 
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Dynamic  Time  Warping  A  pattern  matching  process  designed  to  eliminate  the 
non-linear  time  difference  when  comparing  spoken  words.  DTW  produces  a  distance  met¬ 
ric  relating  the  similarity  of  a  word  to  that  of  a  referenced  word  (3:297). 

Phoneme  The  smallest  unit  of  sound  used  to  describe  or  characterize  spoken  lan¬ 
guage.  According  to  Rabiner,  there  are  approximately  42  phonemes  used  to  characterize 
American  English. 

Coarticulation  “The  overlapping  of  phonetic  features  from  phone  to  phone 
(3:92).” 

Frication  The  forcing  of  air  through  a  restricted  vocal  tract  to  produce  speech.  This 
restriction  causes  turbulent  airflow,  therefore  generating  broad  band  noise  (3:66).  Voiced 
Frication  occurs  when  the  vocal  cords  are  on  and  unvoiced  Fricatiai  occurs  when  the  vocal 
cords  are  off.  An  example  of  a  voiced  fricative  is  the  ’z’  in  ’zero’.  An  example  of  an  un¬ 
voiced  fricative  is  the  ’k’  in  ’cat’  (6:5  ). 

Plosive  A  temporary,  complete  closure  of  the  vocal  tract  during  speech.  This  clo¬ 
sure  causes  increased  pressure  in  the  vocal  tract,  which,  when  released,  produces  a  clean, 
sharp  sound  (3:87).  The  ’p’  in  ’upper’  is  a  Plosive. 

1.6  Assumptions 

This  thesis  used  a  VAXStation  II  with  a  DSC  analog  to  digital  converter,  a  VAX 
4000,  and  a  VAX  6000  model  420.  Each  computer  runs  the  VMS  operating  system  with 
network  access  using  decnet. 

1.7  Scope 

This  thesis  will  ccxicentrate  on  developing  many  different  features,  many  different 
pattern  recognition  algorithms,  and  investigate  how  they  can  all  be  used  together  for  iden¬ 
tifying  acoustic  signals 
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1.8  Summary 

The  development  of  a  human-like  ASR  system  is  a  worthwhile  effort.  As  outlined 
above,  the  benefits  of  an  ASR  system  are  enormous.  However,  the  task  is  neither  simple  nor 
success  guaranteed.  By  studying  the  human  speech  recognition  system,  researchers  may 
discover  the  means  to  create  a  human-like  ASR  system.  Chapter  2  will  give  a  cursory  look 
of  speech  recogntion,  including  topics  germain  to  this  thesis. 
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//.  Literature  Review 


2.1  Introduction 

Research  in  the  speech  recognition  field  is  proceeding  at  a  rapid  pace.  The  ever  in¬ 
creasing  availability  of  fast  computers  and  general  purpose  software  allows  researchers  to 
test  more  theories  in  less  time.  Large  speech  databases  exist  on  CD  ROM  eliminating  the 
need  for  researchers  to  collect  their  own  speech  data.  This  reduces  the  cost  and  speeds  up 
the  research.  This  chapter  will  focus  on  current  research  in  the  speech  recognition  field  that 
relates  to  this  thesis. 

22  Human  Speech  Communication  Process 

Speech  communication  involves  both  speech  generaticm  and  speech  recognition. 
To  develop  a  more  usable  ASR  system,  both  processes  need  to  be  better  understood.  Re¬ 
searchers  study  the  human  speech  generation  process  in  hopes  of  determining  how  the  brain 
encodes  informaticwt  to  the  acoustic  signal.  Likewise,  researchers  study  the  speech  recogni¬ 
tion  process  by  examining  the  mechanisms  of  the  ear.  Their  goal  is  to  understand  how  the 
brain  decodes  lingual  information  and  to  duplicate  the  process. 

2.2.1  Speech  Generation 

The  organs  involved  in  speech  generaticm  are  the  lungs,  the  larynx,  and  the  vocal 
tract.  The  larynx  (see  figure  1)  is  the  set  of  muscles  and  cartilage  that  houses  and  controls 


Thyyoid  cartilage 
Vocal  Cords 


Arytenoid  Top  of  cricoid 

cartilage  cartilage 

Figure  1  The  larynx  vocal  cords  open  to  breathing  (3:61) 


the  vocal  cords.  The  space  between  the  vocal  cords  is  the  glottis.  The  frequency  of  the  vocal 
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cord  vibraticm  is  called  the  glottal  frequency.  The  vocal  tract,  composed  of  the  nasal  and 
oral  cavity,  the  nasal  and  oral  pharynx,  and  the  laryngeal  pharynx,  is  the  acoustical  tube  that 
modulates  the  glottal  output.  Figure  2  shows  the  vocal  tract  and  surrounding  organs. 


Figure  2  The  tract  and  the  surrond  organs  (3:63) 


Nasal 

phaiyna 

Velum 

Uvula 

Oral 

Pharynx 

Epiglottis 

Laryngeal 

pharynx 

Vocal  cords 
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cartilage 


Speech  generation  is  divided  into  two  parts,  excitation  and  modulatiai.  Excitation 
generally  takes  place  in  the  glottis,  but  sometimes  occurs  in  other  areas  of  the  larynx. 
“Modulation  is  done  by  the  various  organs  of  the  vocal  tract  (3:64)” 

Like  the  lips  of  a  trumpeter,  the  vocal  cords  vibrate  when  air  is  forced  through  them. 
This  is  the  most  important  form  of  excitation  and  is  called  phcaiaticMi.  However,  when  one 
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whispers,  air  is  not  forced  through  the  vocal  cords.  This  means  excitati(»i  must  take  place 
elsewhere  in  the  larynx.  Figure  3  shows  the  caifiguration  of  the  larynx  during  phonation 


Figure  3  The  vocal  cords  in  various  positions  (3:65) 


and  whispering. 

Modulation  is  akin  to  what  linguists  call  articulation.  When  the  shape  of  the  vocal 
tract  changes,  the  glottal  output  is  encoded  with  linguistical  information.  The  vocal  tract, 
like  any  acoustical  tube,  has  natural  resonances. 

These  natural  resonances  are  called  formants,  and  they  are 
the  single  most  important  way  of  modulating  the  voice  -  they  ac¬ 
count  for  all  vowels  and  some  of  the  consonants,  and  we  will  see  that 
they  also  provide  crucially  important  information  about  the  rest  of 
the  consonants  as  well.  (3;66) 

Figure  4  shows  the  shape  of  the  vocal  tract  when  modulating  the  vowel  sounds  AH, 
EE  and  OO.  Additional  types  of  modulaticm  are  interrupticHis  and  the  addition  of  wide  band 
noise.  (3:59-66) 

2.2.2  Speech  Recognition 

The  ear  consists  of  three  main  regions  -  the  outer  ear,  the  middle  ear,  and  the  inner 
ear.  See  Figure  5.  The  pinna  and  external  auditory  meatus  make  up  the  outer  ear.  The  pinna 
is  the  protector  of  the  meatus  and  may  provide  a  person  with  directioial  cues.  The  meatus 
is  a  uniform  tube  that  directs  sound  waves  to  the  ear  drum. 
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Figure  4  The  vocal  tract  modulating  the  sounds  AH  EE  OO 


The  middle  ear  is  the  air  filled  regitxi  that  contains  the  eustachian  tube  and  the  ossi¬ 
cles.  The  eustachian  tube  allows  the  middle  ear  to  be  at  a  pressure  equal  to  that  of  the  out¬ 
side  world.  The  ossicles,  composed  of  three  tiny  bones,  connects  the  eardrum  to  the  cochlea 
and  provides  impedance  transformation  and  amplitude  limiting.  Impedance  transformation 
increases  the  amount  of  acoustical  energy  that  is  transferred  from  the  eardrum  into  the 
cochlea  by  15: 1.  Amplitude  limiting  protects  the  cochlea  from  high  decibel  sounds  by  lim¬ 
iting  the  transfer  of  high  amplitude  sound  waves. 
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The  inner  ear  has  three  parts,  but  only  the  liquid  filled  cochlea  ccmtributes  to  the 
speech  recogniticxi  process.  Across  secticxi  of  the  cochlea  is  shown  in  Figure  6 .  The  coch¬ 


lea,  which  is  divided  by  the  basilar  membrane,  resembles  a  snail.  The  acoustical  signal  en¬ 
ters  the  cochlea,  propagates  through  the  liquid  of  the  Scala  Tympani,  passes  to  the  opposite 
side  via  the  Helicotrema,  then  propagates  back  through  the  Scala  Vestibuli  before  exiting. 
The  helicotrema  is  the  end  of  the  cochlea  where  the  basilar  membrane  stops.  The  propaga¬ 
tion  of  the  sound  waves  through  the  cochlea  causes  the  basilar  membrane  to  vibrate.  The 
hair  cells  connected  to  Oi]gan  of  Corti  move  with  the  vibrations  and  cause  an  electrical  po¬ 
tential  in  the  nerve  cells.  The  frequency  infOTmation  is  transmitted  to  the  brain  by  the  firing 
of  these  nerve  cells. 

The  cochlea  separates  sound  frequencies  spatially  along  the  length  of  the  basilar 
membrane.  Each  sound  wave  causes  a  specific  area  of  the  basilar  membrane  to  vibrate  at  its 
resonate  frequency.  Since  the  sound  frequencies  are  separated,  individual  frequency  infor- 
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mation  can  be  passed  to  the  brain  stem  where  further  processing  occurs.  The  frequency 
information  is  then  sent  to  the  auditory  cortex  on  the  oppjosite  side  of  the  brain.  (3:67-71) 
2.3  Classifications  of  Speech  Recognition 

Speech  recognition  systems  are  classified  by  the  type  of  speech  input  and  speaker 
dependency  (1).  The  size  of  the  vocabulary  and  the  recognition  accuracy  are  the  measures 
of  performance  for  a  speech  recognition  system  (1). 

23.1  Speech  Input 

Isolated  word  and  continuous  word  are  the  type  of  inputs  that  are  used  in  speech 
recognition  systems.  Isolated-word  recognition  systems  generally  have  a  higher  recogni¬ 
tion  accuracy  than  continuous  word  systems  (7:27). 

2.3.1. 1  Isolated  Word  Recognition 

Isolated  word  recognition  requires  inputting  one  distinct  word  at  a  time.  The  input 
can  be  either  a  single  word  or  a  stream  of  words  with  a  pronounced  pause  between  each 
word.  This  pause  helps  eliminate  speaker  coarticulation  and  makes  word  boundary  deter¬ 
mination  relatively  easy  (3:293).  After  determining  the  boundaries,  a  pattern  matching  al¬ 
gorithm  is  used  for  word  recognition. 

Recognit.on  in  isolated-word  recognition  systems  is  usually  done  at  the  word  level 
(3:295).  The  system  stores  a  library  of  spoken  words  and  uses  a  pattern  matching  algorithm 
to  determine  similarity  between  input  words  and  the  library  words.  The  system  selects  the 
library  word  that  bears  the  highest  degree  of  similarity  to  the  input  word.  A  commonly  used 
pai.  ’m  ret  ognition  technique  is  Dynamic  Time  Warping  (DTW).  The  DTW  algorithm  is 
computationally  intensive,  which,  depending  c«i  the  power  of  the  computer,  can  limit  the 
size  of  the  vocabulary  the  recognizer  can  handle.  Another  algorithm  that  offers  similar  rec¬ 
ognition  accuracy  at  a  fraction  of  the  computational  cost  is  the  Hidden  Markov  Model 
(HMM)  (3:307). 


23.1.2  Continuous  Word  Recognition 

Generally,  when  people  speak,  there  is  not  an  easily  identifiable  boundary  between 
words  and  many  words  are  not  fully  articulated  (3:318-319).  Therefore,  the  two  major 
problems  in  continuous  speech  recognition  systems  are  endpoint  detection  and  coarticula¬ 
tion  (3:318-319). 

modified  form  of  the  DTW  algorithm  can  be  used  in  continuous  speech  recogni¬ 
tion  systems  (6: 13).  The  modified  DTW  algorithm  compares  library  words  to  the  sections 
of  the  input  utterance.  When  a  library  word  satisfactorily  matches  a  secticm  of  the  utterance, 
the  word  is  recognized  and  some  boundaries  are  identified.  The  algorithm  continues  until 
the  entire  utterance  is  recognized,  but  the  task  becomes  easier  after  each  boundary  identifi¬ 
cation. 

Another  approach  to  continuous  speech  recognition  is  segmenting  input  speech  into 
phonemes  of  a  language  (6: 13).  The  phonemes  are  then  combined  to  make  words.  Artificial 
neural  networks  are  frequently  used  to  segment  speech  into  phonemes.  Rule  base  systems 
and  HMMs  are  used  to  recognize  words  from  phonemes.  This  approach  allows  the  system 
to  have  a  larger  vocabulary  because  template  words  need  not  be  stored  and  neural  networks 
are  computationally  fast  (2). 

2.3.2  Talker  Input 

Every  voice  is  somewhat  unique.  Differences  in  the  glottal  frequencies  and  the  size 
and  shape  of  the  vocal  tract  create  the  uniqueness  in  each  voice.  A  child,  for  example,  has  a 
smaller  vocal  tract  which  causes  a  higher  pitched  voice.  Thus,  formant  frequencies  for  the 
same  phoneme  differ  between  speakers  and  impact  speech  recognition  (1). 

2.3.2.1  Talker  Dependent 

Speaker  dependent  systems,  whether  isolated  word  or  continuous  speech,  perform 
recognition  on  only  one  speaker’s  voice.  Therefore,  all  words  in  the  system’s  library  must 
be  input  by  the  same  person.  These  systems  usually  have  higher  recognition  rates  than  in- 
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dependent  speaker  recognition  systems  do  since  they  do  not  have  to  compensate  for  inter¬ 
speaker  variances  (1:21). 

23.2.2  Taker  Independent 

Speaker  independent  systems,  whether  isolated  word  orccaitinuous  speech,  perform 
recogniticMi  for  multiple  speakers.  The  word  library  for  a  speech  recognition  system  can  be 
made  speaker  independent  by  using  one  or  more  of  the  following  techniques:  store  multiple 
copies  of  the  same  word  from  different  speakers,  create  word  templates  to  represent  many 
speakers,  or  filter  out  the  speaker  dependencies  in  speech.  To  create  a  template  for  a  word, 
corresponding  time  slices  for  the  same  word,  spoken  by  different  speakers,  are  averaged 
together.  To  make  speech  data  somewhat  speaker  independent,  the  formants  frequencies  of 
each  speaker  are  either  normalized  or  used  as  ratios.  Normalization  can  be  done  with  re¬ 
spect  to  vocal  tract  range,  Gerstman  1968;  vocal  tract  length,  Wakita  1977;  or  vocal  tract 
distributicMi,  Neuberg  1980  (3:305-306),  Typically,  only  the  first  three  formant  frequencies 
are  used  in  speech  recognition  system.  Using  the  formant  ratios  formant  2/formant  1  and 
formant  3/formant  1,  improved  speaker  independent  speech  recognition  in  tests  done  at 
AFIT(6:97). 

2.3. 2.3  Talker  Adaptive 

A  speaker  adaptive  system  is  a  speaker  independent  system  that  improves  its  accu¬ 
racy  with  continued  use.  When  a  new  speaker  inputs  words  to  the  system,  the  system  up¬ 
dates  its  library  to  improve  the  recognition  accuracy.  If  a  recognition  mistake  is  made,  the 
mistaken  utterance  is  averaged  in  with  the  correct  library  word.  This  average  can  be  either 
a  true  average  or  a  weighted  average.  The  weighted  average  will  make  the  library  word 
more  closely  represent  the  word  as  spoken  by  the  new  speaker.  The  tme  average  represents 
all  speakers  equally.  Public  systems  use  the  latter  technique. 
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2.4  Speaker  Recognition 

Speaker  recogniticm  serves  two  purposes,  speaker  verification  and  speaker  identifi- 
catiai  (3:332).  An  example  of  speaker  verificaticm  is  using  a  system  to  grant  or  deny  access 
to  a  restricted  area  based  ai  a  voice  sample.  Speaker  identification  is  a  useful  tool  for  po- 
licewhen  trying  to  identify  an  individual  from  a  phcme  call  or  a  taped  conversatiai.  Using 
a  persai’s  voice  for  identificaticm  is  not  the  same  as  using  fingerprints,  since  a  person’s 
voice  may  change  with  respect  to  his  age  and  health  (7:  32). 

Problems  exist  with  this  technology.  A  hostile  speaker  may  try  to  disguise  his  voice 
(3:333).  Poor  signal  to  noise  ratio  in  a  speaker  verification  area  may  cause  a  high  number 
of  false  rejecticms  (3:333). 

2.4.1  Text  Free 

A  text  free  speaker  recognition  system  uses  any  speech  input  from  a  person  to  rec¬ 
ognize  the  speaker.  This  type  of  recognition  usually  requires  between  30  and  60  seconds  of 
input  speech  to  make  a  recognition  prediction  (3:336-340)  (7:32). 

One  approach  to  this  problem  is  to  use  vocal  tract  modeling.  Given  enough  speech 
data,  the  vocal  tract  can  be  modeled  from  the  formant  data.  Then,  new  speech  is  compared 
against  the  library  of  vocal  tract  models.  People  with  the  ability  to  mimic  others  are  suc¬ 
cessful  in  spoofing  these  systems  (3:333). 

Other  systems  try  to  detect  nuances  and  mannerisms  specific  to  a  person’s  voice  to 
determine  recognition  (3:333).  Typical  features  of  this  recognition  approach  include 
(3:335): 

1)  pitch  at  selected  points  in  words, 

2)  spectral  characteristics  of  nasal  constants, 

3)  spectral  characteristics  of  selected  vowels. 
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4)  estimated  slope  of  the  excitation  spectrum, 

5)  spectral  characteristics  of  fricatives, 

6)  duration  of  selected  vowels, 

7)  presence  of  prevoicing  in  a  selected  coitext. 

In  COTtrolled  speaker  recognitiai  tests,  using  the  above  7  features  plus  10  others,  the 
error  rate  was  0  percent  (3:335).  The  typical  error  rate  for  this  type  of  system  is  less  than  3 
percent  (3:335). 

2.4.2  Text  Specific 

Unlike  the  text  free  systems,  text  specific  speaker  recognition  systems  require  the 
user  to  input  the  same  word  or  phrase  each  time  to  recognize  the  speaker.  This  approach  is 
similar  to  speaker  dependent,  isolated-word  speech  recognition  systems,  and  works  well 
when  used  with  the  same  speaker  templates,  but  not  so  well  when  used  with  cross  speaker 
templates  (6:84)(7:27).  A  speaker  recognition  system  stores  a  library  of  the  same  word  or 
phrase  as  spoken  by  different  speakers.  Then,  it  compares  the  input  word  to  the  library 
words  and  creates  a  list  of  DTW  distances.  Since  the  speaker  may  not  be  in  the  library,  the 
smallest  DTW  distance  will  not  always  determine  the  speaker.  However,  if  the  smallest 
DTW  distance  is  significantly  less  than  the  other  DTW  distances,  then  it  is  likely  that  this 
distance  will  identify  the  speaker. 

2.5  Speech  Recognition  Techniques 

2.5.1  Dynamic  Time  Warping 

Dynamic  Time  Warping  (DTW)  is  a  pattern  matching  technique  that  uses  a  distance 
value  to  indicate  similarity.  The  smaller  the  value,  the  closer  the  similarity.  The  purpose  of 
DTW  is  to  discount  the  variable  time  in  which  people  say  the  same  word  (1).  DTW  allows 
localized  shrinking  and  stretching  of  parts  of  words  to  better  determine  if  the  input  word 
and  the  library  word  are  the  same.  If  one  speaker  says  “car”  and  another  speaker  says 
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“caaaar,”  the  speech  recognizer,  without  DTW,  will  interpret  the  speakers  as  saying  two 
different  words.  DTW  shrinks  the  multiple  “a”  sound  articulated  by  the  secaid  speaker  to 
match  the  single  “a”  sound  spoken  by  the  first  speaker.  This  creates  a  closer  match  and 
produces  a  smaller  DTW  distance.  Figure  7  shows  the  effect  of  DTW  in  the  time  domain. 


Before  Time  Warp 
I  Amplitude 


Time 


Figure  7  DTW,  as  represented  in  the  time  domain  (7:29) 

The  shaded  region  represents  the  template  which  is  staticarary.  The  amplitude  values  of  the 
line  move  in  time  to  better  match  the  template. 

The  DTW  algorithm  compares  each  point  in  the  test  word  with  every  point  in  the 
library  word.  This  produces  a  rectangle  of  point  by  point  comparisons  which  resembles  an 
error  surface  when  viewed  as  a  contour  plot  (1).  Starting  in  the  lower  left  hand  comer,  DTW 
looks  for  the  shortest  error  path  to  the  upper  right  hand  comer.  The  DTW  distance  is  the 
summatiOT  of  all  error  values  along  the  path  (1).  Figure  8  shows  a  hypothetical  error  sur¬ 
face  that  the  DTW  algorithm  has  to  traverse.  The  size  of  the  dots  represent  the  size  of  error. 
A  valley  in  the  error  surface  that  is  along  the  main  diagonal  shows  a  strong  correlation  be¬ 
tween  the  two  words. 

There  are  different  approaches  to  finding  the  smallest  path  through  the  error  sur¬ 
face.  The  classical  approach  is  to  allow  movement  in  three  directions  —  directly  to  the 
right,  diagonally  up  to  the  right,  or  straight  up  (2).  See  Figure  9,  left,  for  illustration. 
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Figure  8  DTW  error  surface 


Itakura’s  algorithm,  removed  the  option  of  going  straight  up  and  added  the  option  to  go 
diagtxially  up  two  to  the  right  (2).  Itakura  also  limited  going  directly  to  the  right  to  cme  time 
consecutively.  This  algorithm  moves  as  a  function  of  i,  with  i  being  the  horizcMital  axis 
(3:301).  See  Figure  9,  right. 

Since  DTW  is  computationally  intense,  the  stopping  criteria  is  important.  In  the 
worst  case,  DTW  terminates  when  the  error  path  reaches  the  end  of  the  words.  Other  ad  hoc 
stopping  criteria  are  (3:300): 

1)  if  the  current  accumulative  distance  is  exceedingly  large, 

j  j 
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Figure  9  Two  methods  of  traversing  a  DTW  error  surface 


2)  if  the  current  accumulative  distance  is  larger  than  the  smallest  DTW  distance  al¬ 


ready  obtained. 


Figure  10  DTW  parallelc^ram  contraint  (3:300) 


3)  if  the  error  path  wandered  outside  die  parallelogram  caistraints,  as  shown  in  Fig¬ 
ure  10  (3:300). 

2J.2  Hidden  Markov  Models 

“A  Hidden  Markov  Model  is  a  doubly  stochastic  process  for  producing  a  sequence 
of  observed  symbols”  (7:30).  In  the  Hidden  Markov  Model  (HMM),  each  word  is  modeled 


Figure  1 1  Finite  State  Model  used  in  a  HMM  (7:30) 


18 


as  a  Finite  State  Machine  (FSM).  See  Figure  11  for  diagram.  Each  state  is  a  phoneme  or 
subphaieme  samd  unit  with  an  identifying  symbol.  The  links  indicate  the  possible  transi- 
ticms  and  the  probability  of  that  transition  occurring.  A  symbol  that  links  back  to  itself  rep¬ 
resents  a  repeating  sound.  A  link  that  skips  the  next  symbol  represents  a  word  that  is  not 
fully  articulated  or  has  different  pronunciatiais.  With  careful  training,  the  FSM  can  add 
additional  sound  states  that  account  for  coarticulation.  The  probabilities  are  set  using  em¬ 
pirical  data.  The  data  changes  with  regicmal  dialects. 

In  a  recognition  system,  every  word  in  the  library  is  represented  as  an  FSM  model. 
The  recognition  process  starts  when  the  utterance  is  received.  It  is  then  segmented  into  a 
stream  of  symbols.  Each  FSM  determines  the  probability  of  producing  the  identical  symbol 
stream.  The  FSM  with  the  highest  probability  of  producing  the  input  symbols  is  selected  as 
the  input  word  (3:310). 

2.5.3  Artificial  Neural  Networks 

Artificial  Neural  Networks  (ANN)  are  a  great  bo(xi  for  pattern  recognition  because 
they  generate  discriminate  functions  from  the  data  (8).  ANNs  undergo  a  learning  process 
where  data  is  fed  into  the  neural  network  and  the  interconnection  weights  are  adjusted  until 
the  network  can  distinguish  the  different  classes  of  data  (8).  If  the  data  is  separable,  ANN’s 
can  produce  discriminant  functions  that  determine  the  classification  of  the  data  (8).  Figure 
12  shows  a  multi-layered  perceptron  neural  netwoiic. 

Speech  recognizers  use  ANNs  to  segment  speech  data  into  phcmeme  or  subphcmeme 
scHind  units.  The  networks  have  an  output  node  for  each  class  of  sound  and  enough  input 
nodes  to  encompass  the  time  interval  of  the  digitized  speech  data. 

2.6  Speech  Recognition  at  AFIT 

2.6.1  Barmore 
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Figure  12  Multilayer  Preceptron  Neural  Network 

In  1988,  Capt  Barmore  developed  two  types  of  speaker  dependent  speech  recogni¬ 
tion  systems.  The  first  type  used  two  Kohonen  neural  networks,  one  to  cluster  sounds  to 
nodes  and  the  other  to  cluster  words  to  nodes.  The  speech  data  is  fed  into  the  first  network 
and  a  list  of  nodes  representing  the  input  data  is  produced.  This  list  of  nodes  is  fed  into  the 
second  network,  and  it  produces  a  node  that  represents  the  input  word.  Capt  Barmore ’s 
secOTd  system  replaced  the  second  Kohcmen  neural  network  with  a  DTW  algorithm  that 
determines  the  input  word. 

Capt  Barmore  used  a  10  word  vocabulary  to  test  his  system.  The  first  system’s  rec¬ 
ognition  accuracy  was  96  percent  ai  isolated  words  and  81  percent  wi  ccMinected  words 
(4:5-1).  The  second  system  achieved  accuracies  of  99.1  percent  and  90.7  percent  respec¬ 
tively  (4:5-1). 

2.6.2  Recia 

Capt  Recia  used  the  same  architecture  as  Capt  Barmore’s  second  system,  but  added 
a  second  feature  set.  The  two  different  features  used  were  Linear  Predictive  Coding  (LPC) 
and  fwmants.  The  system  library  stored  each  word  as  an  LPC  file  and  as  a  formant  file.  The 
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recogniticm  system  performed  recogniticMi  twice,  wice  for  LPC  and  (xice  for  formants.  Capt 
Recla  then  used  multi-featured  fusion  to  combine  the  outputs  of  the  two  recogniticm  tests 
into  a  single  cxitput. 

Capt  Recla  extended  the  v(x:abulary  to  the  70  words  from  the  AFTI F-16  program 
for  his  recognition  tests.  Capt  Recla  achieved  a  recogniticm  accuracy  of  97.2  percent  for 
isolated  word  and  70.8  percent  for  ccmnected  words  (5:2-4,139). 

2.6.3  Stowe 

Capt  Stowe  added  a  third  feature,  the  cepstrum,  to  Capt  Recla’s  system.  This  system 
performs  three  separate  recognition  runs  and  uses  multi-feature  fusicm  to  produce  a  single 
cmtput  predicticm. 

Capt  Stowe  extended  the  v(x:abulary  to  86  words  and  tested  both  isolated  and  ccm¬ 
nected  speech.  He  achieved  accuracies  of  98.7  percent  and  70.3  percent  respectively 
(6:73,79).  Capt  Stowe  tested  his  system  for  speaker  independence  by  using  the  same  library 
for  many  different  speakers.  These  tests  prcxluced  ptx)r  results  with  many  of  the  test  runs 
achieving  accuracies  of  less  than  50  percent  (6:84-95).  In  another  attempt  at  speaker  inde¬ 
pendence,  Capt  Stowe  combined  multiple  speaker’s  words  into  one  word  templates.  These 
templates  are  more  representative  of  the  population.  Using  the  new  template  library,  Capt 
Stowe  achieved  an  accuracy  of  82  percent  cm  isolated  speech  (6: 102). 

2.7  Summary 

This  chapter  is  meant  as  a  broad  overview  of  speech  recognition  topics.  Hopefully 
the  reader  can  better  appreciate  the  difficulty  of  the  problem.  Researchers  are  ccmstantly 
coming  up  with  new  approaches  to  speech  recogniticm  but,  to  date,  cmly  small  gains  have 
been  realized.  Chapter  3  describes  AFTT’s  facilities  for  speech  recogniticm  research. 
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Ill,  System  Environment 


3.1  Introduction 

The  purpose  of  this  chapter  is  to  describe  the  envircnment  for  system  development 
and  operatitxis.  This  thesis  will  develop  an  all  new  speech  recogniticwi  system.  TTie  devel¬ 
opment  of  this  system  will  be  influenced  by  the  types  of  computers  available,  their  net¬ 
working  capability,  and  access  to  speech  recording  equipment  All  equipment  and  software 
used  for  this  development  effort  will  be  listed  in  Appendix  B. 

3.2  Speech  Recording 

In  this  thesis,  all  speech  data  will  be  recorded  digitally  using  a  Digital  Sound  Cor¬ 
poration  model  200  (DSC-200)  digital  to  analog  converter.  The  speech  data  is  entered  using 
a  noise  reduction  microphone,  filtered  with  an  8  kHz  anti-aliasing  filter,  and  then  digitized 
at  16  kHz.  There  are  a  few  user  setable  settings  ai  the  DSC-200.  All  speech  is  recorded  with 
the  microphone  gain  on  and  the  reccM-d  level  set  at  the  third  vertical  line  from  the  left. 

The  DSC-200  connects  to  CALVIN,  a  VAXStatiwi  II/GPX.  The  two  programs  that 
run  (Ml  the  VAX  and  operate  the  DSC-200  are  RECORD  and  listen.  The  RECORD  program 
is  used  to  record  speech  data.  The  user  must  supply  a  file  name,  the  length  of  recording 
time,  the  sampling  rate  in  component  and  mantissa  form,  and  the  channel  informaticMi  for 
the  program  to  run.  The  digitized  speech  data  is  stored  in  the  file  name  provided  and  the  file 
is  l(3cated  in  the  user’s  directory  on  Calvin,  calvin’s  disk  drives  are  relatively  small  and 
can  hold  only  a  few  minutes  of  speech.  The  listen  program  is  used  to  playback  recorded 
speech  files.  The  user  need  only  supply  the  filename  for  listen  to  operate.  The  rest  of  the 
information,  like  sampling  rate  and  channel  informatitMi,  is  obtained  from  the  header  of  the 
file.  However,  the  user  can  distort  the  playback  by  specifying  an  alternate  sampling  rate  for 
playback. 
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3.3  Hardware  Environment 

The  number  of  AFIT  computers  and  the  network  ccmfiguration  never  stays  the  same 
for  more  than  a  few  days;  therefore,  no  accurate  diagram  is  possible.  This  thesis  uses  just  a 
small  portiai  of  the  available  resources.  The  main  software  will  be  developed  and  run  on 
HERCULES,  a  VAX  6000  model  420.  HERCULES  is  a  multiprocessor  system  with  two,  eight 
MIP  processors.  Also,  Hercules  has  a  laige  disk  farm  managed  by  a  hierarchical  storage 
controller.  Two  RA60  removable  disk  drives  are  dedicated  to  this  thesis.  Each  RA60  holds 
270  megabytes  of  data.  HERCULES  is  a  member  of  a  VAX  cluster,  meaning  other  VAXes  in 
the  cluster  can  be  used  for  the  same  task  as  Hercules.  Hercules  is  the  fastest  and  is  the 
primarily  resource,  but  the  other  VAXes  are  suitable  for  executing  batch  jobs. 

The  second  computer  used  in  this  thesis  is  Calvin.  Calvin  is  a  one  MIP  system 
used  for  recording  the  speech  data.  Calvin ’s  multiple  windowing  workstation  capabilities 
are  useful  for  interfacing  with  HERCULES. 

DECNET  is  used  to  connect  HERCULES  and  CALVIN  on  an  AFIT  subnet  decnet  is 
a  network  operating  system  which  not  cxily  allows  remote  connects  and  file  transfers,  but 
also  intra-network  process  communicaticxis.  Thus,  decnet  enables  all  networked  VAX 
computers  to  appear  as  one  large  computer.  This  thesis  makes  use  of  this  capability,  allow¬ 
ing  HERCULES  and  CALVIN  to  appear  as  one  computing  system. 

3.4  Software  Environment 

The  HERCULES  operating  system  is  VAX/VMS  version  5.4  with  decnet  phase  IV. 
All  software  is  developed  using  the  VAX  Ada  version  2.2  programming  language.  Since  the 
programs  require  extensive  amounts  of  memory,  all  programs  compile  with  the  space  opti- 
mation  qualifiers. 
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The  CALVIN  operating  system  is  VAX/VMS  4.7  with  DECNET  phase  IV.  Calvin 
runs  the  vax  windowing  software  system.  There  i;  c  no  compilers  ai  Calvin,  but  any  VAX 
compiled  code  can  run  cwi  Calvin. 

3.4  Tools 

All  the  code  is  developed  using  the  Language  Sensitive  Editor  (LSE).  The  LSE  cai- 
tains  templates  for  use  with  most  programming  languages.  The  advantage  of  using  LSE  is 
that  it  assists  the  programmer  in  entering  code.  This  guarantees  correct  syntax  for  program¬ 
ming  structures.  For  example,  if  the  programmer  types  IF  then  ccmtrol  E,  the  following 
code  segment  will  appear: 

if  {logical  clause}  then 
{statements}... 

[elsif]... 

[else] 
end  if; 

Statements  in  {}  brackets  must  to  be  filled  in,  and  statements  in  []  brackets  do  not 
have  to  be  filled  in.  LSE  has  templates  for  all  structures  for  the  programming  language  and 
indents  these  structures  for  readability.  Programs  can  be  compiled  inside  the  editor.  When 
errors  occur,  the  LSE  splits  the  screen  and  shows  the  errors  on  the  top  and  the  code  txi  the 
bottom. 

3.6  Summary 

This  chapter  presents  an  overview  of  the  hardware  and  software  environment  used 
for  the  development  of  the  new  recognition  system.  The  next  chapter  discusses  in  detail  the 
design  of  the  new  recognition  system. 
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IV,  System  Design 


4.1  Introduction 

This  thesis  will  focus  ai  developing  an  integrated  software  tool  for  testing  speech 
recognition  concepts.  This  tool  will  use  some  concepts  from  previous  theses,  but  will  be 
completely  redesigned  in  ADA  (4;5;6).  This  new  software  is  called  the  AFIT  Speech  Rec¬ 
ognition  Tool  (ASRT),  pronounced  assert.  ASRT  includes  the  capability  to  extract  words 
from  a  digitized  speech  file,  to  calculate  multiple  features  for  each  word,  to  perform  word 
recognition  using  three  different  recognizers,  to  use  multi-featured  fusion  to  produce  a  sin¬ 
gle  recognition  result,  and  to  combine  multiple  words  into  a  single  word  template.  The  goal 
for  this  thesis  is  to  show  that  a  multi-featured,  multi-recognizer  system  is  robust  enough  to 
obtain  high  recognition  accuracies  for  independent  talkers. 

This  chapter  discusses  the  complete  design  of  ASRT.  The  areas  discussed  are  the 
software  design  and  the  major  subsystems.  As  stated  earlier,  this  software  is  a  complete 
redesign  and  it  is  hoped  that  ASRT  will  be  used  and  improved  upon  in  future  AFIT  theses. 
42  Software  Design 

The  design  of  the  software  is  particularly  important  for  meeting  the  goals  of  this 
thesis  and  for  use  in  future  theses.  Sound  software  engineering  techniques,  such  as  a  modu¬ 
lar  design,  are  crucial  to  maintaining  and  upgrading  this  software  system. 

The  software  system  breaks  down  into  the  following  seven  areas: 

1)  Extraction  operations 

2)  Database  management 

3)  Feature  operations 

4)  Recognition  operations 
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5)  Fusion  operations 

6)  Template  operations 

7)  Batch  Interpreter 

Figure  13  shows  the  interface  between  the  six  major  subsystems  in  the  interactive 
mode.  In  this  mode,  the  user  directs  ASRT  to  perform  all  tasks  using  the  menu  commands 
of  each  subsystem.  Although  tedious,  the  interactive  mode  is  designed  for  debugging  and 
trying  out  different  ideas.  To  perform  large  scale  recognition  tests,  the  system  has  a  built  in 
scripting  language,  which  automates  this  process.  The  script  interpreter  is  discussed  in  sec¬ 
tion  4.9. 
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Figure  13  ASRT  Software  Subsystems 


The  software  is  designed  in  modular  subsystems,  using  the  powerful  ADA  package 
constmct.  To  prevent  the  duplication  of  code,  the  software  relies  heavily  cm  the  use  of  ge¬ 
neric  packages  and  generic  subprograms.  Figure  14  shows  the  software  layout  in  icons  of 
packages  and  subprograms.  Subprograms  are  in  square  boxes  and  packages  are  in  rounded 
boxes.  Subprograms  resident  inside  packages  which  are  visible  to  the  user  are  shown  in 
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Figure  14  ASRT  Softtware  Package  structure 
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oblcMig  ovals.  Generic  packages  and  subprograms  are  indicated  with  dashed  lines.  Lines 
between  packages  indicate  the  package  on  the  left  is  dependent  upon  the  package  (»i  the 
right. 

4.3  Extraction  Operations 

The  EXTRACTiON_PACKAGE  contains  all  of  the  procedures  and  functicms  necessary 
for  processing  digitized  speech  files.  Each  digitized  file  contains  one  or  more  spoken  words 
surrounded  by  noise.  The  goal  is  to  separate  the  spoken  words  from  the  surrounding  noise 
and  store  the  words  in  a  separate  ASCII  data  file.  This  process  ccmsists  of  three  steps:  read¬ 
ing  and  translating  the  digitized  speech  file,  calculating  the  Noise  Distance  Factor  (NDF), 
and  extracting  the  spoken  words  into  separate  files. 

4.3.1  Reading  Digitized  Speech  Files 

The  RECORD  program,  described  in  chapter  3,  first  stores  a  512  byte  header  in  the 
speech  file,  and  then  stores  the  speech  data  as  16  bit  integers  in  512  byte  records.  Ada 
duplicates  this  record  structure  by  using  the  following  type  statement: 

type  SPEECH_RECORD_TYPE  is  array  (integer  range  1..256)  of  short_integer. 

An  Ada  short_integer  is  two  bytes.  TTie  normal  Ada  GET  procedure  cannot  read  the 
speech  file  because  it  does  not  know  the  record  structure.  Another  Ada  input  output  pack¬ 
age,  SEQUENTIALJO,  is  a  generic  procedure  that  can  be  instantiated  for  any  abstract  data 
type.  Therefore,  if  the  file  is  opened  as  a  sequential  file,  then  the  sequential_io.read 
procedure  can  be  instantiated  to  read  the  file.  The  following  instantiaticm  incorporates  the 
record  structure  into  the  sequentialjo  package: 

package  speechjo  is  new  sequentialjo  (speech_record_type) 

This  instantiation  allows  the  newly  created  speech jo.read  procedure  to  read  cme 
512  byte  record  from  the  digitized  speech  file  at  a  time.  The  first  record  is  thrown  away 
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since  it  is  header  informati(»i.  Then,  each  subsequent  record  has  each  data  point  coiverted 
from  short_integers  to  floating  point  values  which  are  stored  in  an  ASCII  data  file. 

The  RECORD  program  runs  cm  Calvin  and  stores  the  speech  files  cm  Calvin’s  disk 
drives.  The  ASRT  software  runs  on  HERCULES,  but  uses  a  decnet  link  to  read  the  digitized 
speech  files  from  Calvin.  This  remote  file  access  helps  speed  up  and  automate  the  speech 
recognititm  processing  of  the  ASRT  system. 

4.2.2  Classifying  Speech  Time  Slices 

The  speech  classification  process  is  necessary  for  the  extracticm  process  to  work.  In 
essence,  the  extraction  process  is  dcme  as  a  two  pass  process.  Pass  (me  classifies  each  time 
slice  as  to  how  close  it  is  to  being  noise.  And  pass  two  extracts  the  words  and  stores  them 
in  separate  files. 

The  digitized  speech  file  is  sliced  up  into  time  slices  consisting  of  256  data  points 
each,  representing  16  ms  of  speech.  The  Linear  Predictive  Power  Spectrum  (LPPS)  feature 
is  calculated  for  each  time  slice.  LPPS  is  used  because  it  works  well  for  speech  recognition; 
this  feature  will  be  described  in  section  4.4.1.  The  Euclidean  distance  is  calculated  between 
the  first  time  slice  and  all  subsequent  time  slices.  Then  each  Euclidean  distance  value  is 
divided  by  the  value  of  the  average  Euclidean  distance  between  the  first  time  slice  and  the 
next  k  -  1  time  slice.  This  value  is  known  as  the  Noise  Distance  Factor  and  is  defined  by 
equatitm  1. 


W  LPPS:,  LPPS  I  lU 
NDFi  =  - - ^ 

LPPS  j,  LPPS  y  II2 

J=2 _ 

K-\ 


i=j+  l,y  +  2, ...  ,N 


(1) 


where 


NDF  is  the  Noise  Distance  Factor 


29 


LPPS  is  the  Linear  Predictive  Power  Spectrum 

N  is  the  number  of  time  slices  in  a  word 

K  is  the  number  of  time  slices  used  to  characterize  the  noise 

A  value  of  9  was  used  for  K,  which  assumes  the  first  ten  time  slices  consist  of  just 
noise  data.  The  results  of  equation  1  represent  how  far  each  time  slice  is  away  from  the 
noise.  These  values  are  truncated  to  integer  values  and  stored  in  a  linked  list.  Values  over  9 
are  reduced  to  the  value  of  9.  More  detail  on  the  speech  characterizaticMi  list  and  how  it  is 
used  is  provided  in  the  next  section. 

4.2.3  Extracting  Individual  Words 

The  DSC  records  speech  in  predetermined  time  intervals.  When  speech  is  recorded, 
there  is  noise  before  and  after  each  word.  To  speed  up  the  recording  of  a  large  amount  of 
speech  data,  multiple  words  are  recorded  into  a  single  file.  A  typical  speech  file  of  three 
words  is  shown  in  Figure  15.  The  noise  surrounding  the  words  makes  it  necessary  to  extract 
each  word  into  a  separate  file  before  further  processing  can  occur.  To  extract  the  complete 
word  in  an  automated  fashion  is  not  a  simple  process.  A  fricative  at  the  start  of  the  word 
may  look  like  the  surrounding  noise.  A  plosive  in  the  middle  of  the  word  can  make  one 
word  look  like  two  separate  words.  A  word  widi  a  trailing  plosive  makes  the  end  point  dif¬ 
ficult  to  determine,  since  the  sound  is  offset  from  the  rest  of  the  word  and  has  alow  energy 
value.  Figure  15  illustrates  the  above  three  c(xiditic«s  on  a  typical  speech  file  of  the  words: 
six,  upper,  and  front.  An  alternative  to  automated  extracticxi  is  manually  extracting  each 
word.  In  manual  extraction,  the  user  determines  the  endpoints  of  the  words.  Manual  extrac¬ 
tion  is  slower  but  perhaps  more  accurate. 

4.2. 3.1  Automated  Extraction 

Pass  two  fOT  the  automated  word  extraction  process  uses  two  heuristic  rules  to  de¬ 
termine  the  beginning  of  the  word  and  the  end  of  the  word.  These  rules  are  applied  to  the 
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Figure  15  Digitized  speech  file  of  three  words 

speech  classification  list  of  pass  one.  The  numbers  used  in  the  following  heuristics  can  be 
adjusted  by  the  user. 

The  beginning  word  heuristic  is  —  if  4  time  slices  in  a  row  have  a  NDF  greater  than 
2,  then  the  first  data  point  of  the  first  time  slice  is  the  start  of  the  word.  The  ending  word 
heuristic  is  —  if  12  time  slices  in  a  row  have  a  NDF  less  than  3,  then  the  last  data  point  of 
the  last  time  slice  classified  as  speech  is  the  word’s  end  point.  All  data  points  in  between  the 
two  endpoints  are  written  to  a  file  to  complete  the  extraction  process.  Figure  16  shows  the 
extracted  words  from  the  file  shown  in  Figure  15.  Normally,  the  user  specifies  the  file  name 
for  each  word  as  it  is  extracted.  However,  two  file  name  generating  alternatives  are  avail¬ 
able.  The  file  names  can  be  generated  automatically  with  the  following  naming  conventicm: 
UNKNOWN_woRD_i,  UNKNOWN_woRD_2. ...  UNKNOWN_woRD_#.  Also,  the  file  names  Can 
be  generated  from  the  list  of  the  database  words.  This  assumes  that  the  first  word  extracted 
is  first  word  in  the  list  and  so  on.  The  method  may  not  be  very  reliable. 

4.2.3. 2  Manual  Extraction 

Since  automated  procedures  do  not  always  work  perfectly,  a  manual  extracticm  pro¬ 
gram  is  also  provided.  The  manual  extraction  program  displays  the  speech  classification  list 
to  the  user.  Figure  17  shows  the  classificatitxi  list  for  the  speech  file  in  Figure  15.  The  num¬ 
bers  in  the  classification  list  are  the  NDF  values  from  equation  1.  This  allows  the  user  to 
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visually  determine  the  rough  locaticm  of  the  word’s  endpoints.  The  user  tells  the  program 
how  many  time  slices  to  delete,  or  how  many  time  slices  encompass  the  word.  Then,  the 
extraction  program  deletes  data  points  from  the  frcmt  and  back  of  the  speech  list.  This  de¬ 
letes  extra  noise  data  points  that  are  part  of  the  edge  time  slices.  The  deleting  of  data  points 
is  accomplished  by  comparing  a  moving  average  against  an  energy  threshold.  The  energy 
threshold  is  calculated  by  equation  2. 

Threshold  =  \lspeechjist,  +  P  *  ^speech_list^  J  =  1, 2, . . .  ,A^  (2) 

where 

N  is  the  number  of  data  points  in  a  time  slice 

p  is  the  mean  of  the  absolute  values  of  the  first  time  slice  in  the  speech  list 

P  is  a  multiplication  factor 

o  is  the  variance  of  the  absolute  values  of  the  first  time  slice  in  the  speech  list 

When  the  moving  average  of  the  absolute  value  of  the  speech  list  exceeds  this 
threshold,  then  no  more  data  points  are  deleted  and  the  remaining  data  points  in  the  speech 
list  are  written  to  a  file.  The  number  of  time  slices  for  these  operatiais  is  always  referenced 
from  the  beginning  of  the  list. 
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Figure  17  Speech  characterization  list 


43  Database  Management 

The  database  manager  manages  the  names  of  the  words  in  the  database  list  When 
the  ASRT  starts  up,  the  database  manager  reads  the  names  of  the  words  in  the  database  from 
a  file  and  stores  them  in  a  linked  list.  The  database  manager  has  two  types  of  customers  to 
manage,  subprograms  and  users. 

Many  procedures  and  functiais  in  ASRT  need  to  access  the  database  list  to  per¬ 
form  their  operaticms.  Sometimes  two  different  procedures  access  this  list  in  an  alternating 
fashicMi.  It  is  important  that  one  procedure’s  access  does  not  interfere  with  another’s.  To 
prevent  this,  the  database  manager  allocates  a  pointer  to  any  procedure  requesting  access  to 
the  list.  Then,  as  a  procedure  uses  the  get_name  procedure,  the  database  manager  just  in¬ 
crements  the  pointer  for  that  procedure.  The  database  manager  returns  an  under_flow  ex¬ 
ception  when  a  procedure  tries  to  go  past  the  end  of  the  list.  The  procedures  expect  and  use 
this  exception  to  exit  from  their  operating  loops. 

The  user  or  a  script  can  use  the  database  manager  to  add  and  delete  word  names 
from  the  database  list.  Other  functions  include:  displaying  the  words  in  the  database  list, 
setting  the  directory  path  for  the  database,  setting  a  library  name  prefix,  and  toggling  be¬ 
tween  using  the  main  database  list  and  database  sublist.  The  capability  to  set  a  prefix  allows 
the  user  to  chioige  the  set  of  words  or  templates  being  used  in  the  library  for  a  given  recog¬ 
nition  test. 
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The  database  manager  also  manages  the  use  of  the  sublist.  Since  a  sublist  is  just  a 
shorter  versiai  of  the  database  list,  the  database  manager  can  use  all  of  the  same  functions 
to  manage  them.  The  difference  is  that  the  database  manger  uses  a  different  set  of  pointers. 
The  user  or  script  file  calls  the  toggle  procedure  to  tell  the  database  manger  which  set  of 
pointers  to  use.  The  toggling  between  lists  is  transparent  to  the  other  functions  and  proce¬ 
dures  in  ASRT  since  all  subprograms  are  database  list  length  independent 
4,4  Features  Operations 

The  feature_package  contains  all  of  the  procedures  and  functions  necessary  to  cre¬ 
ate  the  features  used  for  recognition  in  ASRT.  ASRT  creates  eight  different  features  of  each 
word.  The  creation  of  these  features  is  computaticmally  intensive  and  some  features  are  de¬ 
rived  from  other  features.  To  make  creating  the  features  as  efficient  as  possible,  all  of  the 
features  are  created  at  the  same  time.  This  reduces  disk  access  and  takes  advantage  of  fea¬ 
ture  interdependencies.  The  following  is  the  list  of  features; 

1)  Linear  Prediction  Power  Spectrum  (LPPS), 

2)  Delta  LPPS  (DPPS), 

3)  Linear  Frequency  Cepstrum  Coefficients  (LFCC), 

4)  Delta  LFCC  (DFCC), 

5)  Mel  Frequency  Mel  Cepstrum  (MFMC), 

6)  Delta  MFMC  (DFMC), 

7)  Bi-Linear  Mel  Cepstrum  (BLMC), 

8)  Delta  BLMC  (DLMC). 

4.4.1  LPPS  and  DPPS 

The  LPPS  feature,  as  the  name  implies,  is  derived  from  the  power  spectrum.  There 
exist  many  methods  to  calculate  a  power  spectrum.  This  thesis  uses  the  all  poles  -  maximum 
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entropy  method  because  it  is  very  good  at  fitting  sharp  spectral  features  (9:43 1).  Equatiai  3 
shows  the  relatiaiship  between  the  power  spectrum  and  the  a  coefficients  (9:431). 


Pif)  = 


Oo 


M 


where 


(3) 


M  is  the  number  of  poles 

a*  are  coefficients  derived  from  the  data 


The  a;t ’s  are  obtained  by  solving  the  matrix  equation  show  in  equaticMi  4  (9:432). 
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The  O’s  are  obtain  by  equatiai  5  (9:431). 
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where 


N  is  the  number  of  data  points 
c,  ’s  are  the  sample  data  points 

N  for  this  thesis  is  5 12  which  results  in  a  256  point  power  spectrum.  Energy  is  then 
added  to  the  higher  frequencies  of  the  power  spectrum  by  the  amount  of  6db  per  octave 
above  600  hertz.  Finally,  the  256  point  power  spectrum  is  reduced  to  16  points  by  using  a 
Mel  frequency  compression  scheme.  Figure  18  shows  a  mapping  from  the  Mel  frequency 
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scale  to  the  linear  frequency  scale.  The  Mel  scale  is  divided  into  16  equally  spaced  fre¬ 
quency  bins.  The  bins  are  then  mapped  to  the  linear  scale,  also  shown  in  Figure  18.  All 


Figure  18  Linear  scale  to  Mel  scale  mapping 


amplitude  values  of  the  256  point  power  spectrum  falling  within  the  same  frequency  bin  are 
summed  together,  producing  16  values  for  the  feature.  Figure  19  shows  a  ccmtour  plot  of 


Figure  19  LPPS  feature  for  the  word  six 

LPPS  for  the  word  six.  Time  runs  left  to  right  and  the  higher  frequencies  are  displayed  at 
the  bottom  of  the  image.  The  high  frequencies  for  the  fricatives  at  the  beginning  and  the  end 
of  the  word  six  is  shown  by  the  lighter  areas  along  the  bottom.  The  image  also  shows  a 
vertical  valley  where  the  energy  drops  off  at  the  beginning  of  the  X  sound.  The  DPPS  fea¬ 
ture  is  the  difference  between  two  LPPS  time  slices  and  is  defined  by  equation  6  (10:66^ . 
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DPPSi  =  DPPSi  + 1  -  DPPSi  _  1,  I  =  2, 3, . . . ,  iV  -  1  (6) 

where 

N  is  the  number  of  time  slices  in  the  word. 

Figure  20  shows  a  contour  plot  of  DPPS  for  the  word  six.  This  image  shows  the 


Figure  20  DPPS  feature  for  the  word  six 


beginning  fricative  very  well  but  the  ending  fricative  gets  washed  out.  The  X  sound  is  ac¬ 
centuated,  and  the  valley  shown  very  clearly. 

4.4.2  LFCC  and  DFCC 

The  LFCC  feature  is  derived  from  the  linear  prediction  power  spectrum.  This  is  the 
same  power  spectrum  used  for  LPPS,  but  without  the  Mel  compression  scheme.  Equation 
7  converts  the  power  spectrum  into  Cepstrum  coefficients  (11:67). 


LFCCi  =  £  f*cos  ^  |,  1  =  1,2,...,  M, 
*=o  V  J 


where 


Y  is  the  power  spectrum  coefficients 
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K  is  the  number  coefficients 


M  is  the  number  of  desired  Cepstrum  coefficients 

Figure  21  shows  a  ctmtour  plot  of  LFCC  for  the  word  six.  This  image  is  showing 
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Figure  21  LFCC  feature  of  the  word  six 

the  vocal  tract  model  during  the  utterance  of  the  word.  This  image  is  very  smooth  because 
the  vocal  tract  changes  relatively  slowly  while  speaking.  The  X  sound  can  be  »een  as  the 
sharper  movement  during  the  middle  time  slices.  The  lighter  regions  along  the  top  show  the 
build  up  in  the  beginning  fricative  and  the  trail  off  of  the  ending  fricative.  The  horizcxital 
bands  are  the  resonant  frequencies  of  the  vocal  tract.  The  DFCC  feature  is  the  difference 
between  two  LFCC  time  slices  and  is  defined  by  equation  8  (10:66). 

DFCC,  =  DFCC,  +  1  -  DFCC,  _  „  /  =  2.  3, . . . ,  -  1  (8) 

where 

N  is  the  number  of  time  slices  in  the  word 

Figure  22  shows  a  contour  plot  of  DFCC  fw  the  word  six.  This  image  has  sharper 
features  in  middle  where  the  X  sound  is,  but  overall  is  fairly  tame. 

4.4.  J  MFMC  and  DFMC 
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The  MFMC  feature  also  uses  the  linear  predictiai  power  spectrum,  but  first  warps 
the  linear  scale  frequencies  to  Mel  scale  frequencies.  The  warping  is  done  by  simulating 
overlapping  band  pass  filters.  The  filters  are  laid  out  in  16  Mel  scale  frequency  bins,  as 
shown  in  Figure  23.  The  256  data  points  of  the  power  spectrum  arr  positicxied  across  the 
filters.  All  data  points  within  a  filter  are  multiplied  by  the  corresponding  weight  value  and 


Over  Lapping  Band  Pass  Filters 


Frequency  (Hz) 


Figure  23  Overlapping  band  pass  filters  (1 1:67) 

summed  together  and  logged.  Then,  equation  9  is  used  to  calculate  the  Mel  cepstrum  coef¬ 
ficients  (11:67). 
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i  =  1,  2, ....  M, 


(9) 


K 

MFMCi  = 

k=i 


f,  0 

i 

k  —  — 

2 

K 

- 

-I 

where, 

X  is  the  log  energy  values  of  the  filter  oitputs 
K  is  the  number  of  overlapping  bandpass  filters 
M  is  the  desired  number  of  Mel  Cepstrum  coefficients 

Figure  24  shows  a  contour  plot  of  MFMC  for  the  word  six.  This  image  is  also  a 


Figure  24  MFMC  feature  for  the  word  six 


model  of  the  vocal  tract.  The  dark  regions  al(»ig  the  top  correspond  to  the  fricatives  at  the 
beginning  and  end  of  the  word.  The  plosive  sound  of  the  X  is  distinct  in  the  middle  of  the 
of  the  image.  This  image  shows  remnants  of  the  vocal  tract  resonant  frequencies.  The  hori¬ 
zontal  bands  are  now  very  distinct,  probable  because  of  the  cmdeness  of  the  processing. 
The  DI^C  feature  is  the  difference  between  two  MFMC  time  slices  and  is  defined  by 
equation  10(10:66). 

DFMCi  =DFMCi  ^i-DFMCi  _i,  i  =  2,3, . . . ,  N  -  I  (9) 
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where 


N  is  the  number  of  time  slices  in  the  word 


Figure  25  shows  a  contour  plot  of  DFMC  for  the  word  six. 


Figure  25  DFMC  feature  of  the  word  six 


44,4  BIMC  and  DLMC 

The  BLMC  feature  is  derived  directly  from  the  LFCC  feature.  A  bi-linear  transform 
is  used  to  warp  the  LFCC  from  a  linear  scale  to  Mel  scale  to  create  the  new  feature.  The 
bi-linear  transform  is  shown  in  equaticms  11  and  12  (10:64-65). 


.-1  *-«) 
(l-az-‘)’ 

=  0)  +  2  tan 

where 


(-1  <  a<  1) 


a  sin  0) 


[^1  -  acosmj 


(11) 

(12) 


to  is  the  sampling  frequency 
a  is  the  warping  parameter,  0.6  is  used  for  this  feature 
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Figure  26  shows  a  coitour  plot  of  BLMC  for  the  word  six.  This  image  is  directly 


Figure  26  BLMC  feature  of  the  word  six 


comparable  to  the  LFCC  feature  image  and  shows  many  of  the  same  details.  The  major 
difference  is  the  number  of  resaiant  frequencies  shown,  which  may  because  of  the  fre¬ 
quency  warp.  The  DLMC  feature  is  die  difference  between  two  BLMC  time  slices  and  is 
defined  by  equation  13  (10:66). 

DFMCi=DFMCi^y-DFMCi_x,  i  =  . . .  ,N  -  \  (13) 

where 

N  is  the  number  of  time  slices  in  the  word 

Figure  27  shows  a  contour  plot  of  DLMC  for  the  word  sbc. 

All  features  are  word  normalized  according  to  equations  14  and  15,  shown  here  for 
the  feature  LPPS. 
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NORM  = 


N  M 


1 

l2 


(14) 


LPPSij 


LPPSij 

- ^  1=12 

NORM  ’ 


N  and  7=  1, 2, , . . . , M 


(15) 


where 

N  is  the  number  of  time  slices 

M  is  the  number  of  components  in  each  time  slice 

This  normalizatioi  technique  sets  the  energy  of  each  word  to  unity.  Time  slice  nor¬ 
malization  is  not  used  because  of  the  possibility  that  it  may  raise  the  energy  levels  of  a  noise 
time  slice  in  comparison  to  the  rest  of  the  time  slices  in  the  word. 

^.5  Recognition  Operations 

The  RECOGNTTION.PACKAGE  contains  all  of  the  procedures  and  functions  neces¬ 
sary  to  perform  a  recognition  test  between  an  unknown  word  and  a  list  of  words.  The  ASRT 
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system  uses  three  word  recognizers.  The  recc^izers  are  Dynamic  Time  Warping  (DTW), 
Feature  Image  Recognition  (FIR),  and  Error  Surface  Image  Recognitiai  (ESIR).  All  recog¬ 
nizers  can  use  all  of  the  speech  features  described  in  secticm  4.4  for  recogniticwi.  Each  fea¬ 
ture  must  be  brought  online  before  it  can  be  used.  That  is,  the  feature  for  each  word  in  the 
library  is  read  from  the  database  and  stored  in  that  feature’s  linked  list.  This  helps  to  im¬ 
prove  recogniticm  performance  by  eliminating  a  tremendous  amount  of  disk  accesses. 

4S.1  Dynamic  Time  Warping 

The  DTW  algorithm  tries  to  determine  the  best  warping,  aligning  time  slices,  so  that 
two  words  match  the  best.  TTiis  algorithm  is  described  in  Chapter  2.  One  can  better  appre¬ 
ciate  the  task  of  the  DTW  algorithm  by  looking  at  actual  error  surfaces  between  words  that 
are  the  same  and  words  that  are  different.  Figure  28  shows  the  error  surface  between  the 


Figure  28  Error  surface  for  simalar  words 

same  word  spoken  twice  by  the  same  pers«t.  The  dark  region  alcxig  the  main  diagonal  has 
the  smallest  error  values  which  indicates  correlation  between  the  two  words.  The  DTW  al¬ 
gorithm  traverses  the  error  surface  by  starting  at  the  lower  right  hand  comer  and  jumping 
one  time  slice  at  a  time  until  a  stopping  condition  is  met.  At  each  time  slice  the  DTW  algo- 
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rithm  looks  at  three  possible  jump  locatiois  and  chooses  the  aie  with  the  smallest  error 
value.  The  DTW  distance  is  the  sum  of  the  error  points  altxig  this  path.  Figure  29  shows  the 
error  surface  between  different  words  from  the  same  perswi.  There  is  no  dark  band  of  cor¬ 
relation,  and  the  DTW  distance  value  will  be  relatively  large. 


Figure  29  Error  surface  for  different  words 


This  implementation  of  DTW  uses  the  Itakura  rules  for  movement  (2),  The  starting 
point  of  the  path  is  constrained  to  the  first  time  slice  in  each  word.  The  end  point,  however, 
is  not  always  constrained.  If  the  DTW  path  runs  into  the  ceiling  or  top  of  the  error  surface, 
then  it  follows  along  the  ceiling  to  the  upper  right  hand  comer.  In  this  case,  the  end  points 
are  constrained.  If  the  DTW  path  mns  into  the  right  wall,  then  the  algorithm  stops,  and  the 
end  points  are  not  constrained.  In  this  type  of  DTW  implementation,  the  number  of  error 
points  summed  for  each  distance  value  is  a  function  of  the  length  of  the  unknown  word. 

4.5.2  Feature  Image  Recognition 

The  idea  behind  the  FIR  algorithm  is  to  tiy  to  recognize  a  word  by  the  image  of  its 
feature.  The  contour  plots  of  the  various  features  in  Sectiai  3  are  essentially  images.  Fig¬ 
ure  30  shows  two  contCHir  plots  of  the  LPPS  feature  for  the  word  six  said  by  the  same  talker. 
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Tlie  similarities  are  evident  by  visual  inspecticm.  Therefore,  the  low  frequency  values  of  a 
two-dimensiaial  FFT  should  also  be  similar. 


Figure  30  LPPC  feature  for  two  different  sbces 


One  problem  in  speech  is  the  varying  length  at  which  people  say  words.  To  over¬ 
come  this  problem  in  the  FIR  algorithm,  a  time  warp  alignment  algorithm  is  used.  This 
algorithm  uses  the  DTW  algorithm  to  determine  the  best  match  between  the  time  slices  in 
the  two  words.  All  words  in  the  database  are  time  warp  aligned  to  best  match  the  unknown 
or  test  word.  Then,  each  word  is  run  through  a  two  dimensional  Low  Frequency  (LF)  FFT 
algorithm  that  scales  the  results  to  an  eleven  by  eleven  matrix  (12:4-9).  Figure  3 1  shows  the 
LF  matrix  arrangement.  Finally,  each  of  the  library  word’s  LF  matrices  are  compared  to  the 
unknown  word’s  LF  matrix.  The  compariscMi  is  done  with  a  two  dimensional  Euclidean 
distance  algorithm,  which  produces  a  single  distance  value. 

4.5.3  Error  Surface  Image  Recogniticxi 

The  error  surfaces  shown  in  section  4.5.1  are  also  images.  Therefore,  they  too  can 
be  described  using  the  two  dimensiaial  FFT  algorithm.  The  problem  is  what  to  compare 
them  to  for  recognition  purposes.  A  dark  band  running  along  the  main  diagonal,  from  the 
lower  left  to  the  upper  right,  signifies  correlation  in  an  error  surface  image.  Thus,  these 
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error  surfaces  can  be  compared  to  an  error  surface  that  is  known  to  have  this  conelaticMi. 
The  ideal  error  surface  for  compariscm  is  the  cme  created  between  a  word  and  itself.  See 
Figure  32 . 


Figure  32  Perfect  error  surface 


The  ESIR  algorithm  uses  the  following  steps;  a  referenced  error  surface  is  created 
between  the  the  unknown  WOTd  and  itself.  Then,  the  LF  matrix  is  calculated  using  the  two- 
dimensional  LF  FFT  algOTithm.  Each  word  in  the  database  list  is  then  time  warped  aligned 
with  the  unknown  word.  The  error  surface  is  calculated  between  the  unknown  word  and  the 
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new  versions  of  the  library  words.  The  LF  matrix  is  calculated  for  each  error  surface.  Then, 
the  Euclidean  distance  is  calculated  between  the  referenced  LF  matrix  and  the  other  LF 
matrices.  These  distance  values  are  returned  as  the  recognitiai  results. 

4^.4  Hierarchical  Recognition 

The  FIR  and  ESIR  recognizers  both  use  a  two  dimensiaial  FFT  algorithm  and  their 
execution  times  are  much  greater  than  for  the  DTW  algorithm.  Therefore,  a  hierarchical 
approach  may  be  used  to  save  processing  time  without  losing  recognition  accuracy.  The 
DTW  recognizer  is  used  first  cmi  all  of  the  words  in  the  database.  Then,  a  new  database 
sublist  is  created  by  selecting  the  top  X  number  of  words  according  to  their  distances.  The 
other  two  recognizers  are  then  run  on  the  sublist  of  words  and  the  winner  is  selected  by 
feature  fusiai. 

It  is  possible  to  make  the  second  part  of  the  hierarchical  recognition  conditicmal  on 
the  first  part.  An  agree  function  is  used  to  determine  if  the  results  of  the  first  recognition 
pass  agree.  If  they  agree,  then  the  recognititxt  results  stand.  If  the  recognizers  do  not  agree, 
then  they  create  a  sublist  and  go  on  to  the  sectmd  recognition  test. 

4^.5  Fusion  Recognition 

The  recognition  package  is  limited  to  the  eight  features  listed  in  Section  4.4  for  rec¬ 
ognition.  However,  the  recognition  package  has  the  capability  to  combine  features  into 
super  features  and  use  them  for  recognitiai.  The  idea  is  to  let  the  recognizer  perform  the 
fusion  in  the  feature  space,  rather  than  in  the  recognititxr  results  space  (13). 

To  use  the  fusion  recognition,  the  user  specifies  the  features  to  combine,  the  number 
of  components  in  each,  and  a  name  for  the  new  feature.  Once  specified,  the  recognition 
package  creates  the  new  feature  of  the  library  words  from  the  feature  lists  that  are  already 
in  memOTy.  The  new  feature  for  the  unknown  word  is  created  just  before  recognition,  as  the 
files  are  read  from  the  database.  All  of  the  procedures  and  functions  that  are  used  for  recog¬ 
nition  are  instantiated  for  specific  features.  Since  a  new  feature  is  created,  a  special  decla- 
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ration  secticMi  is  needed  to  instantiate  the  procedures  and  functions  to  work  ai  the  number 
of  components  in  the  new  feature.  The  user  has  great  flexibility  in  creating  new  features 
with  this  set  up,  but  the  recognition  speed  is  much  slower  as  a  result 

4.6  Fusion  Operations 

The  FUSiON_PACKAGE  ctxitains  all  of  the  procedures  and  functions  necessary  to  in¬ 
tegrate  and  display  the  results  from  the  recognizers.  The  recognizers  calculate  distance  val¬ 
ues  from  the  unknown  word  to  all  the  library  words.  These  distances  are  stored  in  a  linked 
list  and  passed  to  the  fusion_package.  The  fusion_package  adds  a  label  and  stores  all 
these  results  in  another  linked  list.  Figure  33  shows  what  this  list  of  results  looks  like. 


Figure  33  List  structure  for  fusion  operatiais 


All  of  the  procedures  and  functions  in  the  fusic«  package  are  designed  to  work  in¬ 
dependently  of  what  features  are  in  the  fusiai  list  and  how  many  distance  values  are  in  the 
results  list.  This  is  because  the  number  of  features  used  on  any  one  recogniticxi  attempt  is 
up  to  the  user. 

The  basic  fusion  technique  is  to  multiply  the  distance  results  for  each  feature  by  that 
feature’s  fusion  factor,  and  then  to  sum  all  of  the  results  corresponding  to  the  same  word. 
This  fusion  technique  is  described  by  equation  16. 
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K 

^Feature  Jiesult^^rdi  *  Fusion_F actor ^ 

Fusion_Value^ord  ~  - k - 

^Fusion_F actor i 
1=1 

where 

K  is  the  number  of  recognitiai  results  in  the  fusion  list 

The  fusion  factor  is  normally  1.0,  but  the  user  can  change  this  factor  depending  on 
the  goodness  of  a  particular  feature.  The  higher  the  number  the  more  influential  the  feature. 
The  FUSiON_PACKAGE  can  also  display  or  write  to  a  file  the  various  results  from  the  recog¬ 
nizers.  The  fusion  list  must  be  cleared  before  attempting  to  recognize  the  next  word. 

4.7  Template  Operations 

The  TEMPLATE_PACKAGE  contains  all  of  the  procedures  and  functitMis  necessary  to 
create  and  update  templates  for  recognition.  A  template  is  a  word  created  from  multiple 
utterances  of  the  same  word.  Templates  help  to  improve  recognition  by  being  more  repre¬ 
sentative  of  the  variations  in  spoken  words. 

4.7. 1  Creating  Templates 

The  scheme  used  for  creating  templates  is  time  warp  alignment.  The  algorithm 
works  by  first  determining  which  template  compaient  caisists  of  the  most  time  slices.  The 
other  template  components  are  then  time  warp  aligned  to  the  Icxigest  word.  Then,  all  corre¬ 
sponding  time  slices  are  summed  together  and  averaged.  This  newly  created  word  is  the 
template,  and  is  stwed  in  the  recognition  database.  Figure  34  shows  two  utterances  of  the 
word  six  and  a  template  version. 

4.7.2  Updating  Templates 

Templates  may  also  be  updated.  As  new  talkers  use  the  system,  it  is  more  conven¬ 
ient  to  update  a  template  than  to  completely  recreate  the  templates  from  scratch.  The  update 
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Figure  34  Template  from  two  compaients 


algorithm  combines  the  template  word  with  the  new  word  to  update  the  template.  The  up¬ 
date  algorithm  uses  a  template  factor  to  direct  the  tracking  of  the  update  of  the  template. 
Tracking  refers  to  how  the  template  reflects  the  population  of  talkers.  A  fast  tracking  system 
will  quickly  move  the  template  to  reflect  the  latest  talker.  A  slow  tracking  system  better 
reflects  the  population  of  talkers  that  make  up  the  template.  The  update  algorithm  uses 
equation  17  which  incorporates  a  variable  tracking  speed. 


template_oldi  j  *  template _factor  +  new_wordi ; 

Template  new:  ■.  =  - ^ 

^  \  +  template _f actor 


(17) 


where 


i  is  the  index  for  the  number  of  compOTents 
j  is  the  index  for  the  number  of  time  slices 
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A  low  template  factor  value  is  used  for  fast  tracking.  A  value  of  one  would  average 
the  template  with  the  new  word.  A  template  factor  equal  to  the  number  of  words  in  the 
template  would  equally  represent  all  words  in  the  template. 

4.9  Script  Interpreter 

The  script  interpreter  is  used  to  execute  commands  in  a  script  file.  Scripts  allow  the 
user  to  design  a  test  and  execute  it  without  the  necessity  of  going  through  the  menus  of  the 
subsystems.  Also,  scripts  make  repeating  a  test  caivenient  since  the  commands  are  already 
saved  in  a  file. 

The  script  interpreter  is  not  a  separate  package.  It  is  accessed  from  the  main  menu, 
but  executes  commands  directly  from  any  of  the  subsystems.  The  user  produces  a  script  by 
organizing  commands  in  a  script  file.  A  script  file  is  much  like  any  other  software  program, 
in  that  the  user  sets  up  certain  parameters,  executes  repetitive  commands  in  a  loop,  makes 
decisiais,  displays  results,  and  then  exits.  Each  script  may  have  many  loops  and  if-then- 
else  statements.  Each  loop  is  designed  to  increment  through  the  words  in  the  database  list 
or  sublist  or  through  unknown  file  names.  The  loops  exit  after  the  last  word  in  the  list  is 
accessed.  Figure  35  shows  a  typical  script  file.  A  complete  list  of  the  the  script  commands 
and  how  to  create  tliem  is  in  the  users  manual.  Appendix  A. 

43  Summary 

This  chapter  discussed  in  detail  the  design  of  the  ASRT  system.  A  users  manual  is 
included  in  Appendix  A.  The  next  chapter  shows  the  test  results  using  ASRT. 
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SET_FILE_DIRECTION 

AUTO.CREATE 

SET_PREFIX 

tom4_ 

CREATE_REPORT_FILE 

TW_kESULTS.DAT 

SET_DIRECTORY_NAME 

[TRATHBUN.SPEECH.DATABASE] 

SET_LIBRARY_PREFIX 

TOM_ 

-  load  library 
UPDATE_WORD_LIST 
LPPS 

SET_RECOGNIZER 

TIME_WARP 

-  start  loop 
LOOP 

RECOGNIZE 

-  get  word  from  database  list 
NEXT.WORD 
THIS_WORD 

-  recognize  word  using  feature 
RECOGNIZE 

LPPS 

FUSION 

-  output  results 

ALL_FEATURE_SMALLEST_RESULT 

CLEAR_FUSION_LIST 

-  goto  start  of  loop 
GOTO 

RECOGNIZE 

CLOSE_OUTPUT_FILE 

END 


Figure  35  Typical  script  file 
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V  Test  Results 


5.1  Introduction 

This  chapter  presents  the  results  from  testing  the  ASRT  system.  ASRT  is  capable  of 
performing  numerous  tests.  However,  the  most  rigerous  tests  will  be  run  only  for  the  talker 
dependent  tests.  Only  the  most  promising  recognition  tests  will  be  run  for  the  talker  inde¬ 
pendent  tests.  The  talker  for  the  talker  dependent  tests  recorded  three  sets  of  the  test  words. 
The  talkers  for  the  talker  independent  tests  recorded  two  sets  of  the  test  words.  The  test 
words  are  the  digits  zero  through  nine  and  the  letters  A  through  Z. 

52  Talker  Dependent 

The  three  recognizers  will  first  be  tested  separately,  and  then  in  combination.  The 
combined  tests  wilt  use  sublists  in  a  two  step  recognition  process. 

5.2. 1  Recognizer  Performance  Tests 

Tables  1  through  9  show  the  results  for  the  DTW  recognizer  using  all  eight  features. 
Tables  1 0  through  1 8  show  the  results  for  the  FIR  recognizer  using  all  eight  features.  Tables 
19  through  27  show  the  results  for  the  ESIR  recognizer  using  all  eight  features.  The  num¬ 
bers  and  words  along  the  left  of  each  table  are  the  correct  results.  Along  the  top  of  the  table 
arc  the  feature  name  columns,  followed  by  the  fusion  column.  These  columns  show  the 
recognition  results  for  each  test.  The  cells  in  white  contain  incorrect  results,  while  the 
grayed  cells  contain  correct  results.  The  total  number  wrong  are  counted  along  the  bottom 
of  the  table.  The  nine  test  runs  include  six  for  testing  the  combinations  of  the  three  recorded 
word  sets  and  three  for  testing  with  the  templates.  All  features  were  given  equal  weight  for 
the  fusion  result. 

The  DTW  recognizer  performed  slightly  better  than  the  FIR  recognizer,  and  both 
(Hit  performed  the  ESIR  recognizer  based  on  fusion  results.  Accuracy  for  DTW  and  FIR 
ranged  from  86.1%  to  97.2%  correct.  The  accuracies  for  ESIR  ranged  from  75.0%  to 
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TABLE  1  DTW  RESULTS  FOR  TOM2  VS  TOMl 
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TABLE  2  DTW  RESULTS  FOR  TOMS  VS  TOMl 
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TABLE  3  DTW  RESULTS  FOR  TOMl  VS  TOM2 
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TABLE  4  DTW  RESULTS  FOR  TOM3  VS  TOM2 
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TABLE  5  DTW  RESULTS  FOR  TOMl  VS  TOM3 
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TABLE  6  DTW  RESULTS  FOR  TOM2  VS  TOM3 
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TABLE  7  DTW  RESULTS  FOR  TOMS  VS  TOM12 
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TABLE  8  DTW  RESULTS  FOR  TOM2  VS  TOMB 
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TABLE  9  DTW  RESULTS  FOR  TOM  1  VS  TOM23 
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TABLE  10  FIR  RESULTS  FOR  TOM2  VS  TOMl 
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TABLE  11  FIR  RESULTS  FOR  TOM3  VS  TOMl 
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TABLE  13  FIR  RESULTS  FOR  TOM3  VS  TOM2 
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TABLE  14  FIR  RESULTS  FOR  TOMl  VS  TOM3 


TABLE  15  FIR  RESULTS  FOR  TOM2  VS  TOM3 
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TABLE  16  FIR  RESULTS  FOR  TOMS  VS  TOM12 
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TABLE  17  FIR  RESULTS  FOR  TOM2  VS  TOM13 
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TABLE  18  FIR  RESULTS  FOR  TOMl  VS  TOM23 
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TABLE  19  ESIR  RESULTS  FOR  TOM2  VS  TOMl 
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TABLE  20  ESm  RESULTS  FOR  TOM3  VS  TOMl 
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TABLE  21  ESIR  RESULTS  FOR  TOMl  VS  TOM2 
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TABLE  22  ESIR  RESULTS  FOR  TOMS  VS  TOM2 
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TABLE  23  ESIR  RESULTS  FOR  TOMl  VS  TOMS 
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TABLE  24  ESIR  RESULTS  FOR  TOM2  VS  TOMS 
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TABLE  25  ESIR  RESULTS  FOR  TOMS  VS  TOM  12 
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TABLE  26  ESIR  RESULTS  FOR  TOM2  VS  TOMB 
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TABLE  27  ESIR  RESULTS  FOR  TOMl  VS  TOM23 
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94.4%.  The  fusiai  results  usually  did  not  do  better  than  the  best  feature’s  results,  with  ta¬ 
bles  3,  26,  and  27  being  the  exceptiais.  The  fusion  result  was  always  much  closer  to  the 
best  feature  than  the  worst  feature.  Table  26  shows  a  classic  case  where  feature  fusion  re¬ 
sults  were  significant.  Five  of  the  features  performed  miserably,  two  features  performed 
well  and  the  fusicxi  results  only  missed  two  words.  The  regular  features  out  performed  their 
delta  feature  counterparts.  TTie  best  feature  was  usually  the  MFMC,  followed  by  BLMC 
and  LFCC.  The  best  Delta  feature  was  DFMC.  Using  templates  increased  the  average  rec¬ 
ognition  accuracy  of  the  recognizers. 

5.2.2  Optimal  Recognition  Tests 

Tables  28  through  36  show  the  results  for  the  optimal  combination  of  recognizers 
using  the  best  features.  This  recognition  test  is  a  two  step  process.  The  first  step  uses  the 
DTW  recognizer  and  the  features:  LPPS,  LFCC,  MFMC,  DFMC,  and  BLMC.  If  all  the 
recogniticm  results  in  the  first  step  agree  as  to  the  correct  answer,  then  the  recogniticm  result 
stands.  If  they  don’t  agree,  then  a  second  set  of  recogntiicMi  tests  are  performed  on  a  newly 
created  sublist.  The  sublist  consists  of  the  top  6  words  with  the  smallest  error  distances  from 
the  fusion  result  in  step  1.  The  additional  recognition  tests  performed  in  step  2  are  the  FIR 
using  the  features:  LFCC,  MFMC,  and  BLMC;  and  the  ESBR  using  the  feature  MFMC. 
After  the  additional  recognition  tests  are  run  all  of  the  results  from  step  1  and  2  are  fused 
together.  This  result  is  presented  as  the  recognition  result. 

The  tables  for  the  optimal  combination  test  are  presented  similarly  to  the  tables  for 
the  previous  test  results  with  one  difference.  The  columns  for  the  step  2  recognizers  are 
blacked  out  when  the  recognizers  in  the  first  step  all  agreed  and  thus  the  seccmd  step  was 
not  performed. 

The  recognition  results  were  generally  very  good.  All  but  one  test  was  better  than 
91.6%  accurate.  The  aie  outlier  was  86.1%  accurate.  The  results  generally  support  the  hi¬ 
erarchical  approach  to  speech  recognition.  Examples  where  the  results  from  the  second  step 
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TABLE  28  HIERARCHICAL  RESULTS  FOR  TOM2  VS  TOM  I 


TABLE  29  HIERARCHICAL  RESULTS  FOR  TOM3  VS  TOM  1 


TABLE  30  HIERARCHICAL  RESULTS  FOR  TOMl  VS  TOM2 
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TABLE  3 1  HffiRARCHICAL  RESULTS  FOR  TOMS  VS  TOM2 


TABLE  32  HIERARCHICAL  RESULTS  FOR  TOMl  VS  TOMS 


TABLE  33  HIERARCHICAL  RESULTS  FOR  TOM2  VS  TOM3 


TABLE  34  HIERARCHICAL  RESULTS  FOR  TOMS  VS  TOM12 


TABLE  35  HIERARCHICAL  RESULTS  FOR  TOM2  VS  TOMB 
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TABLE  36  HffiRARCHICAL  RESULTS  FOR  TOMl  VS  TOM23 
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maae  the  difference  in  the  fusion  results  are  words  N  and  P  in  Table  28,  word  Pin  Table  29, 
word  M  in  Table  30,  word  M  in  Table  31,  words  D  and  J  in  Table  32,  and  word  P  in  Table 
33.  The  only  negative  example  is  the  word  B  in  Table  32. 

5.3  Talker  Independent 

The  talker  independent  tests  are  designed  to  test  a  talker’s  words  against  a  template 
of  multiple  talkers.  Two  sets  of  tests  are  run.  The  first  set  is  to  test  the  creation  of  the  tem¬ 
plates  and  the  second  to  test  the  updating  of  the  templates. 

5.3. 1  Creating  Templates 

Two  sets  of  templates  were  created,  each  consisting  of  four  talkers.  Template  1  con¬ 
sists  of  the  words  from  tom  1,  bud  1,  bill  1,  and  stevel.  Template2  caisists  of  the  words  from 
tom2,  bud2,  bill2  and  Steve  2.  The  talkers  words  are  first  calibrated  to  baseline  their  per¬ 
formance.  The  two  step  recognition  approach  used  in  Section  5.2.2  was  used  for  the  cali¬ 
bration  test.  Tables  37  through  42  show  the  results  for  bud,  bill,  and  Steve.  The  results  from 
the  previous  section  are  used  for  the  calabratic»i  test  on  tom. 

Tables  43  through  50  show  the  results  for  the  talker  independent  tests  using  the  op¬ 
timal  recognition  technique.  The  results  for  the  talker  independent  tests  are  varied.  The  tests 
for  toml  and  tom2  produced  recognition  accuracies  of  94.4%  and  97.2%  correct,  respec¬ 
tively.  These  results  may  be  an  artifact  of  the  template  creating  process.  The  tests  for  budl 
and  bud2  produced  recognition  accuracies  of  83.3%  and  80.5%  respectively.  The  tests  for 
billl  and  bill2  produced  recognition  accuracies  of  83.3%  for  both.  The  tests  for  stevel  and 
stevc2  produced  recognition  accuracies  of  86.1%  and  83.3%  respectively.  The  ccaisistant 
results  of  the  last  three  talkers  suggest  that  these  accuracies  are  typical  for  talker  inde¬ 
pendent  recognition  results. 

5.3.2  Updating  templates 

Templates  are  updated  as  a  function  of  the  update_factor.  Two  update_factors  will 
be  tested,  one  for  updating  the  template  quickly  and  one  for  updating  the  template  slowly. 
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TABLE  37  CALIBRATION  RESULTS  FOR  BUD2  VS  BUDl 
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TABLE  38  CALffiRATION  RESULTS  FOR  BUDl  VS  BUD2 
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TABLE  39  CALIBRATION  RESULTS  FOR  B1LL2  VS  BILLl 
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TABLE  40  CALIBRATION  RESULTS  FOR  BILLI  VS  BILL2 
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TABLE  41  CALffiRATION  RESULTS  FOR  STEVE2  VS  STEVEl 
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TABLE  42  CALIBRATION  RESULTS  FOR  STEVE  1  VS  STEVE2 


TABLE  43  TEMPLATE  RESULTS  FOR  TOM2  VS  TEMPLATEl 
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TABLE  44  TEMPLATE  RESULTS  FOR  TOMl  VS  TEMPLATE2 
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TABLE  45  TEMPLATE  RESULTS  FOR  BUD2  VS  TEMPLATEl 
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TABLE  46  TEMPLATE  RESULTS  FOR  BUDl  VS  TEMPLATE2 
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TABLE  47  TEMPLATE  RESULTS  FOR  B1LL2  VS  TEMPLATEl 
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TABLE  48  TEMPLATE  RESULTS  FOR  BlLLl  VS  TEMPLATE2 
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TABLE  49  TEMPLA'l’E  RESULTS  FOR  STEVE2  VS  TEMPLATE! 
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TABLE  50  TEMPLATE  RESULTS  FOR  STEVE  1  VS  TEMPLATE2 
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Tables  5 1  and  52  show  the  calibration  test  for  the  update  talker  shane.  First,  the  update 
talker  is  tested  against  the  templates  used  in  the  creating  template  tests.  These  results  are 
shown  in  tables  53  and  54.  Then,  shane  1  is  added  to  template  1  and  shane2  is  added  to  tem- 
plate2,  both  have  an  update_factor  of  4.0.  Using  this  update_factor  averages  all  five  talkers 
equally.  Tables  55  and  56  show  the  results  for  the  slow  tracking  template  update  tests.  Fi- 
naly,  the  templates  from  the  creating  template  tests  are  recreated  and  updated  with  shane  1 
and  shane2  using  an  update_factor  of  1.0.  Using  this  update_factor  averages  the  template 
words  with  the  update  words.  Tables  57  and  58  show  the  results  from  the  fast  tracking  up¬ 
date  templates  test. 

The  not  in  template  results  are  very  significant.  This  talker  achevied  accuracies  of 
83.3%  and  86. 1%  correcmess.  This  is  similar  to  the  talker  independent  results  with  the  talk¬ 
ers  in  the  template.  This  indicates  that  a  respresentive  template  may  be  able  to  achieve 
talker  independent  recognition  accuracies  in  the  80%  range  for  a  large  number  of  talkers. 
The  slow  tracking  results  achieved  the  same  accuracy  as  the  not  in  template  test.  This  is 
expected  since  this  test  is  very  similar  to  the  previous  talker  independent  tests.  The  fast 
tracking  results  produced  accuracies  of  83.3%  and  88.8%.  These  results  at  first  appear 
strange  when  compared  to  the  slow  tracking  results.  The  shane2  vs  template!  test  showed 
decreased  preformance.  However,  this  can  be  explained  by  looking  at  the  calabration  test 
for  shane2  vs  shane  1,  which  had  an  accuracy  of  83.3%.  The  fast  tracking  updating  moves 
the  template  very  close  to  the  new  talker’s  words.  Tlie  shane  1  vs  template2  test  also  sup¬ 
ports  this  idea. 

5.4  Conclusions 

Considering  the  difficulty  of  the  word  set,  the  recognition  accuracies  are  respect¬ 
able.  The  DTW  appears  to  be  the  best  of  the  recognizers  followed  by  the  FER.  The  MFMC 
features  usually  out  performed  the  other  features  for  the  talker  dependent  tests,  but  not  for 
the  talker  independent  tests.  The  two  step  recognition  process  usually  helps  the  recognition 
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TABLE  51  CALIBRATION  RESULTS  FOR  SHANE2  VS  SHANEl 
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TABLE  52  CALIBRATION  RESULTS  FOR  SHANE  1  VS  SHANE2 
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TABLE  53  NOT  IN  TEMPLATE  RESULTS  FOR  SHANE2  VS  TEMPLATEl 
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TABLE  54  NOT  IN  TEMPLATE  RESULTS  FOR  SHANEl  VS  TEMPLATE2 
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TABLE  55  SLOW  TRACKING  RESULTS  FOR  SHANE2  VS  TEMPLATEl 
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TABLE  56  SLOW  TRACKING  RESULTS  FOR  SHANEl  VS  TEMPLATE2 
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TABLE  57  FAST  TRACKING  RESULTS  FOR  SHANE2  VS  TEMPI 


TABLE  58  FAST  TRACKING  RESULTS  FOR  SHANEl  VS  TEMPLATE2 


performance.The  normalizatiai  techniques  appear  to  be  successful!  based  (mi  the  ability  to 
combine  multiple  talkers  into  a  single  template.  The  talker  independent  recognition  accura¬ 
cies  are  80%  or  better.  A  template  may  be  tracked  to  a  particular  talker  through  updating  the 
template.  The  next  chapter  will  provide  some  ccMiclusicms  and  recommendaticms  for  this 
thesis. 
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VI  Conclusions  and  Recommendations 

The  ASRT  software  was  successfully  developed  and  the  test  results  recorded  in  the 
previous  chapter.  It  was  not  possible  to  run  an  exhaustive  set  of  tests  due  to  the  large  num¬ 
ber  of  possible  combinations  with  three  recc^nizers  and  eight  features.  However,  the  tests 
ccMiducted  provide  a  strong  basis  for  making  general  recommendations  and  conclusiais  for 
future  improvements  in  ASRT. 

6.1  Conclusions 

The  word  extractiai  process  is  very  important  to  the  recognition  process.  Noise  at 
the  beginning  and  end  of  the  words  can  degrade  recognition  accuracies.  Words  had  to  be 
manually  extracted  to  achieve  the  best  results. 

6.1.1  Talker  Dependent 

ASRT  achieves  high  recognitiai  accuracies  usually  in  90%  to  100%  range.  Some  of 
recognition  errors  can  be  contributed  to  the  word  extraction  process.  The  words  from  the 
E-set  are  the  hardest  to  recognize.  Analysis  of  the  waveforms  show  that  words  that  begin 
with  a  plosive  were  difficult  to  extract  properly.  Many  times  this  beginning  sound  was 
missed  when  extracted.  This  led  to  improper  recognitions.  The  Mel  cepstrum  features  gen¬ 
erally  achieved  the  highest  recognition  accuracies.  The  delta  features  did  not  perform  as 
well  as  the  original  features.  The  recognition  accuracies  for  the  fusion  results  were  close  to 
the  best  feature  but  usually  not  as  good.  Templates  help  to  improve  recognition  results. 

6. 1 .2  Talker  Independent 

ASRT  achieves  good  recognition  accuracies,  usually  80%  or  better.  No  feature 
stood  out  as  always  being  the  best.  The  accuracies  of  the  fusion  results  were  usually  as  good 
as  the  best  feature  or  better.  Templates  were  successfully  created  with  multiple  talkers.  Four 
talkers  in  a  template  provides  a  good  base  for  talker  independent  speech  recognition.  Tem¬ 
plates  can  be  updated  to  track  towards  the  current  talker. 
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6.2  Recommendations 

The  following  are  provided  as  recommendaticms  fOT  improvements  in  the  ASRT 

system: 

•  The  ASRT  system  needs  a  better  endpoint  detector  for  the  extraction  process. 

•  Additiaial  features  and  recognizers  should  be  tried.  The  new  features  should  not 
be  based  on  the  power  spectrum.  A  larger  filter  size  cm  the  current  FIR  and  ESIR  recog¬ 
nizers  may  be  helpful  with  the  delta-features.  The  LPPS  feature  may  recognize  better  by 
using  the  log  of  the  power  spectrum. 

•  Image  segmentaticm  techniques  should  be  tried  on  the  feature  images,  with  the 
goal  of  trying  to  classify  attributes  of  the  word.  For  example,  if  fricatives  are  identified 
from  the  feature  image,  then  many  of  the  words  in  the  database  can  be  eliminated  immedi¬ 
ately  because  they  do  not  contain  any  fricatives. 

•  Try  to  use  neural  networks  to  determine  the  ccmditicmal  probability  of  a  recognizer 
producing  a  correct  result.  Then,  all  recognizers  with  a  probability  under  a  threshold  can  be 
eliminated  so  that  they  do  not  degrade  the  fusion  results. 

•  Try  additional  fusion  techniques.  Statistical  analysis  may  show  a  relationship  be¬ 
tween  words,  features,  and  talkers.  This  may  help  to  weight  each  feature  differently  in  the 
fusion  pr(x:ess. 
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Appendix  A  ASRT  Users  Manual 


Introduction 

The  purpose  of  the  appendix  is  to  relate  the  necessary  information  for  someone  to 
user  the  ASRT  software  system.  The  manual  will  have  three  sections:  how  to  setup  ASRT, 
how  to  use  the  interactive  menus,  and  how  to  write  scripts  for  batch  processing.  ASRT  can 
be  run  on  any  of  the  computers  in  the  VAX  cluster  but  HERCULES  is  preferable. 

How  to  Setup  ASRT 

ASRT  consists  of  the  following  files: 


SPEECH_CONTROL_PANEL.ADA 

EXTRACnON.BODY.ADA 

EXTRACTION_PACKAGE.ADA 

DATABASE_BODY.ADA 

DATABASE_PACKAGE.ADA 

FEATURE_BODY.ADA 

FEATURE_PACKAGE.ADA 

RECOGNmON_BODY.ADA 

RECOGNmON_PACKAGE.ADA 

TEMPLATE_BODY.ADA 

TEMPLATE_PACKAGE.ADA 

REC_SUPPORT_BODY.ADA 

REC_SUPPORT_PACKAGE.ADA 

FUSION_BODY.ADA 

FUSION_PACKAGE.ADA 

FUSION_REC_PACKAGE.ADA 

STRING_OPERATIONS_BODY.ADA 

STRING_OPERATIONS.ADA 

LINKED_LIST_BODY.ADA 

LINKED_LIST.ADA 
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To  compile  the  system,  the  above  files  should  be  compiled  in  reverse  order  of  ap¬ 
pearance.  Other  compilation  sequences  may  work,  but  reverse  order  is  recommended.  The 
executable  file  is  generated  with  the  following  command: 

acs  link  speech_control_panel. 

ASRT  may  be  run  from  any  directory  in  the  user’s  account  and  the  database  may 
also  be  stored  in  any  directory  in  the  users  account.  The  database  must  be  pointed  to  for 
ASRT  to  know  where  it  is.  This  is  done  in  the  database  subsystem.  The  full  directory  path 
must  be  used,  not  a  relative  one.  For  example,  use  the  path  [TRATHBUN.speech.database] 
and  not  [-.database]  .  Also,  the  database  can  be  on  another  disk  or  even  another  system  by 
adding  that  information  to  the  path  name.  For  example  herculeS::DJA23;[TRATH- 
BUN.SPEECH.DATABASE] . 

ASRT  stores  the  database  files  with  the  following  naming  convention  pre- 
Flx_WORDNAME.DiG.  The  underscore  is  part  of  the  prefix.  When  the  user  uses  the  feature 
subsystem  to  create  features,  new  files  are  created  with  same  name,  however  the  DIG  ending 
of  the  database  word  is  replaced  by  the  acraiym  of  the  feature.  The  use  of  prefixes  lets  the 
user  select  and  group  of  words  in  the  database  as  the  database  library  and  any  other  group 
as  the  test  words.  The  names  of  the  words  in  database  library  are  stored  in  a  file  named 
DATABASE.DAT. 

How  to  Use  Interactive  Menus 

All  subsystems  in  ASRT  are  accessed  from  the  main  menu,  which  is  shown  on  the 
following  page.  When  the  user  selects  the  number  of  the  appropriate  subsystem,  the  new 
menu  for  that  subsystem  appears.  When  the  user  quits  from  a  subsystem,  the  main  menu 
reappears.  Quitting  a  subsystem  does  not  necessarily  mean  that  data  generated  in  that  sub¬ 
system  is  cleared.  The  user  should  be  able  to  ascertain  whether  data  is  cleared  or  not  by 
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noting  menu  items  to  specifically  clear  an  item  or  in  some  cases  the  use  can  view  data  items 
to  see  there  values. 


1  -  GOTO  EXTRACTION  OPERATIONS 

2  -  GOTO  DATABASE  OPERATIONS 

3  -  GOTO  FEATURE  OPERATIONS 

4  -  GOTO  RECOGNITION  OPERATIONS 

5  -  GOTO  FUSION  OPERATIONS 

6  -  GOTO  TEMPLATE  OPERATIONS 

7  -  GOTO  BATCH  OPERATIONS 

8  -  TO  QUIT 

CHOICE  -> 


The  batch  operations  is  not  a  separate  subsystem.  The  script  interpreter  is  built  into 
the  main  procedure.  When  selecting  this  item,  the  user  is  prompt  for  the  file  name  of  the 
script  to  run.  Since  all  script  files  end  with  .SCR,  this  part  of  the  file  name  does  not  need  to 
be  entered. 

Extraction  Operations 

The  extraction  subsystem  is  used  to  transfer  the  digitized  speech  files  to  the  user’s 
database  and  extract  the  words  in  separate  files.  Speech  files  are  normally  recorded  and 
saved  on  the  VAXStation  IFGPX  named  CALVIN.  Therefore  the  default  transfer  from  loca¬ 
tion  is  CALVIN;;DUAO:[TOMR].  But  this  may  be  changed  to  any  computer  on  the  network 
running  DECNET.  The  source  directory  should  be  configured  for  world  read  access,  but  if 
the  user  prefers,  the  user  name  and  password  may  be  encoded  into  the  source  name.  A  path 
name  of  that  variety  would  look  like  CALViN"user  name  password"::DUAO:tTOMR].  The  desti- 
natitxi  path  is  defaulted  to  [TRATHBUN.SPEECH.database]  ,  but  the  user  may  change  this  in 
the  database  subsystem. 
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The  subsystem  menu  is  show  on  below; 


1  -  INPUT  FILE  NAME  FOR  EXTRACTION 

2  -  SET  PREFIX  FOR  EXTRACTED  WORDS 

3  -  SET  INPUT  CHANNEL  LOCAL  OR  NETWORK  (NETWORK) 

4  -  REVIEW  CURRENT  SETTINGS  FOR  EXTRACTION 

5  -  CREATE  LIST  OF  SPEECH  FILE 

6  -  TRANSLATE  FILE  INTO  STANDARD  FORMAT 

7  -  CREATE  EXTRACTION  FEATURE  LIST 

8  -  DISPLAY  FEATURE  LIST 

9  -  EXTRACT  WORDS  OUT  OF  FILE 

10  -  MANUALLY  EXTRACT  WORDS  OUT  OF  FILE 

1 1  -  RUN  FULL  EXTRACTION  PROCESS 

12  -  QUIT  EXTRACTION  OPERATIONS 
CHOICE  -> 


Item  1  is  used  for  identifying  which  file  is  to  be  used  for  items  5  and  6. 

Item  2  is  used  for  inputting  a  prefix  which  will  be  appended  to  the  front  of  the  file 
names  for  the  extracted  words  when  using  items  9  and  10. 

Item  3  is  a  switch  to  tell  the  translation  program  in  item  6  whether  to  look  to  the 
network  path  or  the  local  database  when  translating  a  file.  This  item  is  included  because 
digitized  speech  files  can  be  copy  manually  to  the  database  from  the  remote  node  or  the 
files  may  have  been  digitized  else  where  and  load  directly  into  the  database. 

Item  4  is  used  to  display  and  change  certain  setting  used  for  automatic  extraction  of 
words.  Item  4  will  be  discussed  last. 

Item  6  needs  to  be  discussed  before  item  5.  Item  6  translates  a  speech  file  in  the 
DSC  200  format  and  creates  an  ASCII  version  in  the  database  directory.  Also,  the  transla¬ 
tion  program  makes  a  linked  list  of  the  speech  file  in  memory. 


122 


Item  5  also  makes  a  linked  list  of  the  speech  file,  but  from  the  already  translated 
speech  file  in  the  database  directory.  This  item  make  it  so  that  item  6  needs  to  be  done  only 
once  for  each  file.  The  next  time  the  user  needs  the  linked  list  of  the  speech  file  created, 
item  5  should  be  used  since  it  is  faster.  Plus  the  file  on  the  remote  node  may  have  already 
been  deleted. 

Item  7  creates  a  power  spectrum  linked  list  of  time  slices  of  the  speech  linked  list 
This  step  needs  to  be  done  for  the  extracted  in  item  9  and  10  can  occur. 

Item  8  display  the  power  spectrum  linked  list  created  in  item  7. 

Item  9  automatically  extracts  and  creates  words  files  from  the  speech  list  and  the 
power  spectrum  list.  Item  9  is  governed  by  the  setting  in  item  4. 

Item  10  is  a  manually  extraction  scheme,  where  the  user  visually  looks  at  the  power 
spectrum  list  and  decides  where  the  endpoints  of  the  words  are.  Item  10  has  it  own  sub 
menu  which  is  show  below; 


3000000001 1111111 1 12222222222333333333344444444445565555555666666666677777777778 
1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 
30000000002221 111121111121221111110111 100121234556687789971 1 1 1 146776666666655544 
312111 100101 10101 1 10001 10111211111111 16699621 1 14699998653343433332221 1111111 1010 
111111111111111111111111 1233445699999864331 1011111 1066654210001 11111111111111110 

1  -  TO  DISPLAY  THE  WHOLE  FILE 

2  -  TO  DELETE  A  SECTION 

3  -  TO  WRITE  A  SECTION  TO  A  FILE 

4  -  TO  WRITE  A  SECTION  TO  A  FILE  WITHOUT  TRIMMING 

5  -  TO  UNDO  LAST  WRITE 

6  -  TO  CHANGE  COEFnCIENT  VALUE 

7  -  TO  CHANGE  THE  FILTER  SIZE 

8  -  TO  GOTO  BEGINNING  OF  LIST 
9 -TO  EXIT 

CHOICE  -> 
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The  first  two  lines  are  included  to  show  the  column  numbers.  The  next  three  lines 
are  the  power  spectrum  list  Item  1  can  be  used  to  show  the  entire  list,  because  this  menu 
only  display  three  lines  at  a  time. 

Item  2  is  used  to  deleted  as  many  time  slices  as  the  user  needs  to  position  the  first 
time  slice  on  the  next  word  to  extract  as  the  fist  time  slice  in  the  characterization  list. 

After  deleting  every  time  slice  in  front  of  the  word  to  be  extracted  the  user  uses  item 
3  to  extract  the  word  with  triming.  Item  3  will  prompt  for  the  word  name  and  how  many 
time  slices  are  in  the  word  and  will  then  display  the  numbr  of  datapoints  deleted  from  the 
front  and  back  of  the  word.  Remember  that  a  prefix  will  be  attached  to  the  front  of  the  word 
name  and  a  .DIG  ending  to  the  rear,  to  complete  the  file  name. 

The  user  alternates  between  items  2  and  3  until  all  the  words  are  extracted,  then  uses 
item  4  to  exit  back  the  subsystem  menu. 

Item  4  is  an  alternative  to  item  3.  Item  3  will  extract  the  word  without  triming,  but 
otherwise  operates  the  same. 

ITem  5  will  moves  the  pointers  in  the  characterization  list  and  the  speech  list  back 
to  their  position  before  the  last  use  of  item  3  or  4.  This  allows  to  the  user  to  reextract  a  word 
after  a  mistake  or  adjustment  has  been  made. 

Item  6  allows  the  user  to  change  the  coeeficient  value  to  adjust  hte  triming  process, 
the  coefficient  value  is  the  number  of  standard  deviation  used  in  the  treshold  value. 

Item  7  allows  the  user  to  change  the  filter  size  in  the  moving  average  filter  to  adjust 
hte  triming  process. 

Item  8  moves  the  pointers  for  the  characterization  list  and  the  speech  list  back  to  the 
beginning  to  start  over. 

Item  9  quits  the  manual  extraction  menu,  but  the  lists  are  maintained. 
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Item  1 1  of  the  subsystem  menu  is  just  a  single  item  to  execute  items  6,7,  and  9. 


Item  12  returns  back  to  the  main  menu. 

When  item  4  is  selected  a  new  menu  is  displayed  as  shown  below: 

1  -  THE  BEGINNING  WORD  COUNT  IS  6 

2  -  THE  END  WORD  COUNT  IS  12 

3  -  THE  SPEECH  WINDOW  SIZE  IS  256 

4  -  NETWORK  LOCATION  IS  CALVIN:  ;DUAO;[TOMR] 

5  -  WORDS  PREFIX  IS  TOMl_ 

6  -  THE  EXTRACTION  MODE  IS  NORMAL 
7 -TO  QUIT  REVIEW 

NUMBER  OF  SETTING  TO  CHANGE  -> 


Items  1  and  2  are  used  in  the  heuristic  extraction  rules  for  the  automatic  extraction 
procedure.  After  viewing  the  power  spectrum  list  the  user  may  want  to  change  these  two  if 
using  the  automatic  extraction  program. 

Item  3  is  used  to  change  the  number  of  data  points  in  a  time  slice.  This  item  effects 
the  creation  of  the  power  spectrum  list. 

Item  4  is  used  to  change  the  remote  node  path.  This  item  effects  the  translation  pro¬ 
gram. 

Item  5  is  used  to  change  the  prefix  value  for  extraction.  This  item  effects  both  ex¬ 
traction  procedures. 

Item  6  is  used  to  change  how  the  automated  extraction  program  generates  the  file 
names  for  the  words  to  be  extracted.  Normal,  as  show,  means  the  user  types  in  the  word 
names.  Auto_database  means  the  word  names  are  generated  from  the  databse  list.  Auto_un- 
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known  means  the  extracted  words  are  put  into  file  names  with  the  following  naming  con¬ 
vention: 

PREFIX_UNKNOWN_WORD_l  .DIG, 

PREnX_UNKNOWN_WORD_2.DIG. 


PREnX_UNKNOWN_WORD_#.DIG. 

Item  7  returns  back  the  user  to  the  extraction  subsystem  menu. 

Database  Operations 

Item  2  from  the  main  menu,  brings  the  user  to  the  database  subsystem,  who’s  menu 
shown  on  the  next  page. 

Item  1  is  used  to  add  word  names  to  the  database.  New  word  names  are  added  to  the 
end  of  the  list.  No  sorting  capability  is  provided.  It  is  assumed  that  a  user  usually  adds  many 
words  at  a  time.  The  adding  words  program  prompts  the  user  for  that  name  of  the  word, 
then  prompts  the  user  to  ask  if  another  word  is  to  be  added.  This  iterative  routine  continues 
until  the  user  enters  an  n. 

1  -  ADD  WORD(S)  TO  DATABASE 

2  -  DELETE  WORDS  FROM  DATABASE 

3  -  LIST  LIBRARY  WORDS 

4  -  SET  DIRECTORY  NAME 

5  -  SET  LIBRARY  PREFIX 

6  -  SET  LIST  POINTER 

7  -  QUIT  EXTRACTION  OPERATIONS 

CHOICE  -> 

Item  2  is  used  to  delete  one  or  more  wwds.  The  words  may  be  deleted  from  any¬ 
where  in  the  list  and  uses  the  same  iterative  loop  that  the  add  word  program. 

Item  3  just  list  the  word  names  in  the  database  list. 
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Item  4  allows  the  user  to  set  the  location  pointer  of  the  database.  The  default  is 
DJA23:[TRATHBUN.SPEECH.DATABASE] . 

Item  5  allows  the  user  to  set  a  prefix  for  the  words  in  the  database  that  make  up  the 
library.  There  is  no  default  value. 

Item  7  is  used  to  set  a  pointer  between  using  the  database  list  and  sublist.  The  de¬ 
fault  value  is  list. 

Item  8  returns  the  user  back  to  the  main  menu. 

Feature  Operations 

Item  3  from  the  main  menu,  brings  the  user  to  the  feature  subsystem,  who’s  menu 
shown  below: 

1  -  SET  MODE  -  SINGLE  OR  BATCH  (BATCH) 

2 -SET  PREFIX  NAME 

3  -  CREATE  ALL  FEATURES 

4  -  TO  QUIT _ 

Item  1  is  used  to  toggle  between  creating  features  for  all  the  words  in  the  database 

list  or  just  a  single  word.  The  default  value  is  batch. 

Item  2  is  used  to  set  a  prefix  value  for  the  feature  program.  The  prefix  values  is  used 
in  both  the  single  and  batch  modes. 

Item  3  creates  all  eight  features  of  the  word  names  supplied.  If  the  batch  mode  is  set 
then  the  feature  program  gets  cxie  word  name  at  a  time  from  the  database  list,  adds  the  pre¬ 
fix  and  creates  the  features.  If  the  single  mode  is  set  then  the  feature  program  prompts  the 
user  for  the  word  name,  add  the  prefix,  and  creates  the  features. 

Item  4  returns  to  the  main  menu. 

Recognition  Operations 

Item  4  from  the  maim  menu  brings  the  user  to  the  recognition  subsystem,  whose 
menu  is  shown  below: 
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1  -  BRING  FEATURE(S)  ONLINE 

2  -  INPUT  FILE  FOR  RECOGNITION  TEST 

3  -  SE'f  RECOGNIZER  TYPE  (TIME  WARP) 

4  -  RECOGNIZE  USING  LP  POWER  SPECTRUM 

5  -  RECOGNIZE  USING  LP  DELTA  POWER  SPECTRUM 

6  -  RECOGNIZE  USING  LF  CEPSTRUM  COEFnCIENTS 

7  -  RECOGNIZE  USING  LF  DELTA  CEPSTRUM  COEFFICIENTS 

8  -  RECOGNIZE  USING  MF  CEPSTRUM  COEFFICIENTS 

9  -  RECOGNIZE  USING  MF  DELTA  CEPSTRUM  COEFHCIENTS 

10  -  RECOGNIZE  USING  BL  CEPSTRUM  COEFHCIENTS 

1 1  -  RECOGNIZE  USING  BL  DELTA  CEPSTRUM  COEFFICIENTS 

12  -  RECOGNIZE  USING  ALL  FEATURES 

13  -  RECOGNIZE  USING  FUSED  FEATURES 

14  -  QUIT  RECOGNITION  OPERATIONS _ 


Item  1  is  used  to  bring  the  features  online.  The  library  words  must  be  in  memoiy'  in 
ordered  to  be  used  for  recognition.  The  user  can  bring  all  or  anyone  of  the  features  online 
at  a  time.  After  selecting  item  1,  the  user  is  prompt  with  ALL  FEATURES?.  A  Y  response 
will  bring  all  features  online.  A  N  respaise  and  the  user  will  be  prompt  for  each  feature 
individually.  This  item  works  with  the  library  prefix  set  in  the  database  subsystem. 

Item  2  is  used  to  designate  the  file  to  be  recognized.  The  user  must  specify  the  prefix 
in  the  file  name  designation. 

Item  3  is  used  to  designate  which  type  of  recognizer  will  be  used  in  the  recognition 
test.  The  choices  are:  time_warp,  two_dee,  error. 

Items  4  through  1 1  are  used  to  run  a  recognition  test  using  the  designating  feature. 

Item  12  is  used  to  run  a  recognition  test  with  all  features. 

Item  13  is  used  to  create  new  features  from  the  existing  features  for  a  recognition 
test.  This  function  prompts  the  user  for  the  name  of  the  existing  feature,  how  many  compo¬ 
nents  in  the  that  featuie,  and  if  the  user  wants  to  add  another  feature.  After  the  user  respoids 
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N  to  the  last  prompt,  the  user  is  prompted  for  the  name  of  the  new  feature.  Then  the  new 
feature  is  created  and  the  recognition  test  is  executed. 

Item  14  quits  the  recognition  subsystem  and  returns  the  user  to  the  main  menu. 

Fusion  Operations 

Item  5  from  the  main  menu  brings  the  user  to  the  fusion  operations  subsystem, 
whose  menu  is  show  on  the  next  page. 

Item  1  is  used  to  designate  where  the  output  from  items  4  through  7  will  go. 

Item  2  is  used  to  input  a  file  name  for  output  designated  to  go  to  a  file. 

Item  3  creates  a  sublist.  This  function  works  on  the  fusion  results  list,  so  item  8  must 
be  run  first.  The  user  is  prompted  for  the  number  of  words  to  be  selected  for  the  sublist. 

1  -  SET  OUTPUT  CHANNEL  (SCREEN  OR  FILE) 

2  -  SET  FILE  NAME  FOR  RESULTS 

3  -  CREATE  SUBLIST 

4  -  OUTPUT  RESULTS  FOR  A  FEATURE 

5  -  OUTPUT  RESULTS  FOR  ALL  FEATURES 

6  -  OUTPUT  SMALLEST  DTW  VALUE  FOR  A  FEATURE 

7  -  OUTPUT  SMALLEST  DTW  VALUE  FOR  ALL  FEATURES 

8  -  PERFORM  FUSION 

9  -  FUSION  RESULT 

10  -  CLEAR  FUSION  LIST 

11 -QUIT _ 

Item  4  is  used  to  output  the  distance  result  list  for  a  specific  entry  in  the  fusion  list. 
The  user  is  prompted  for  the  entry  name.  Note  the  entry  name  in  the  fusion  list  includes  the 
feature  name  and  which  recognizers  was  used  to  create  the  distance  result  list.  The  naming 
ccHiventiai  is  the  feature  name,  an  underscore,  and  a  two  letter  abbreviation  of  the  recog¬ 
nizer.  The  abbreviatitxis  are:  time_warp  -  TW,  two_dee  -  2D,  and  error  -  ER.  An  example 
of  recognizing  LPPS  with  time  warp  produces  a  fusion  list  entry  name  of  LPPS_TW. 
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Item  5  outputs  the  distances  list  for  all  the  entries  in  the  fusion  list. 

Item  6  outputs  the  word  name  and  distance  value  of  the  recognition  result  with  the 
smallest  distance  value,  for  a  designated  entry  name  in  the  fusion  list. 

Item  7  outputs  the  word  name  and  distance  value  of  the  word  with  the  smallest  dis¬ 
tance  value  for  all  entries  in  the  fusion  list. 

Item  8  creates  a  new  entry  in  the  fusion  list  with  the  fusion  results  for  all  the  entries. 
The  entry  name  for  the  fusion  results  is  FUS. 

Item  9  outputs  just  the  word  name  of  the  word  in  the  FUS  entry  with  the  smallest 
recognition  result. 

Item  10  clears  the  fusion  list.  This  must  be  done  before  the  next  recognition  test  or 
else  the  fusion  list  will  be  confused  between  which  entries  belong  to  which  recognition 
attempt. 

Item  1 1  exits  the  fusion  subsystem  and  returns  the  user  to  the  main  menu. 

Template  Operations 

Item  6  from  the  main  menu  bring  the  user  to  the  Template  Subsystem,  whose  menu 
is  shown  below: 


1  -  C,  CREATE  LIST  OF  PRERXES 

2  -  C  U,  SET  WORD  NAME  FOR  TEMPLATING 

3  -  C  U,  SET  OUTPUT  TEMPLATE  PRERX 

4  -  U,  SET  TEMPLATE  FACTOR 

5  -  U,  SET  INPUT  TEMPLATE  PRERX 

6  -  CREATE  TEMPLATE 

7  -  UPDATE  TEMPLATE 

8  -  QUIT  TEMPLATE  SUBSYSTEM 
CHOICE  -> 
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Items  1  through  5  have  either  a  C,  C  U,  or  U  in  front  of  them.  This  is  an  indicator 
to  tell  the  user  which  item  needs  to  be  completed  before  creating  or  updating  templates.  The 
C  refer  to  creating,  the  U  refers  to  updating,  and  C  U  refers  to  both. 

Item  1  is  used  to  create  a  list  of  prefixes  from  which  the  template  will  be  created. 
The  user  will  be  prompted  for  the  prefix  and  whether  to  add  another.  The  user  enters  an  N 
to  exit  this  item. 

Item  2  is  used  to  input  the  word  name  that  the  template  wDl  be  created  for. 

Item  3  is  used  to  input  the  prefix  for  the  template.  The  user  may  create  many  tem¬ 
plates  for  the  same  word,  so  the  prefix  is  used  lo  distinguish  between  template  versions. 

Item  4  is  used  to  input  the  template  factor.  The  template  factor  is  a  floating  point 
value  greater  than  0.0. 

Item  5  is  used  for  naming  the  prefix  of  the  template  being  updated.  The  output  pre¬ 
fix  for  a  template  update  will  be  the  value  from  item  3.  This  value  may  be  the  same  as  item 
5. 

Item  6  is  used  to  create  templates.  The  user  has  the  option  of  what  features  the  tem¬ 
plate  will  be  created  for.  The  first  prompt  will  ask  the  user  if  the  templates  should  be  created 
for  all  features.  If  the  user  responds  N,  then  the  user  will  be  prompted  for  each  feature. 

Item  7  is  used  to  update  templates.  The  same  prompting  routines  in  item  6  is  used 
for  item  7. 

Item  8  returns  the  user  back  to  the  main  menu. 

Creating  Scripts 

General  rules  about  scripts; 

-  Line  that  begin  with  a  are  comments  and  are  ignc^ed, 

-  The  data  for  a  command  is  always  oi  the  next  line(s). 


131 


-  Loop  names  must  be  unique. 


-  Loops  exit  when  a  word  list  finishes, 

-  All  commands  must  be  in  upper  case, 

-  unknown  commands  will  be  printed  and  execution  stops. 

PRINTLINE 

This  command  reads  the  next  line  and  prints  the  contents  to  he  screen. 

PRINT_LINE 
Any  old  statement 

SET  DIRECTORY  NAME 

This  command  reads  the  next  line  and  set  the  contents  to  be  the  name  of  the  direc¬ 
tory  for  the  database. 

SET_DIRECTORY_NAME 

[TRAraBUN.SPEECH.DATABASE] 

SET_LIBRARY_PREFIX 

This  command  reads  the  next  line  and  set  the  contents  to  be  prefix  for  the  library 


words. 

SET_LIBRARY_PREFIX 

TOMl_ 

ADD_LIBRARY_WORD 

This  command  reads  the  word  name  on  the  next  line  and  adds  it  to  the  database  list 
The  RESET_DATABASE_LIST  command  must  be  used  after  this  command. 

ADD_LIBRARY_WORD 

PICKLES 
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RESET_DATABASE_LIST 

DELETE  LIBRARY  WORD 

This  command  reads  the  word  name  on  the  next  line  and  deletes  it  from  the  database 
list.  The  RESET_DATABASE_LIST  command  must  be  used  after  this  command. 

DELETE_LIBRARY_WORD 

PICKLES 

RESET_DATABASE_LIST 
RESET  DATABASE  LIST 

This  command  rereads  the  word  names  for  the  database.dat  file  to  create  a  new  da¬ 
tabase  list. 

RESET_DATABASE_LIST 

SET_LIST_  POINTER 

This  command  reads  the  next  line  and  sets  it  contents  to  be  the  list  pointer.  There  are 
two  possible  values  LIST  and  SUBLIST. 

SET_LIST_POINTER 

SUBLIST 

RESET_WORD  LIST 

This  command  sets  the  word  pointer  back  to  the  beginning  of  the  database  list. 

NEXT_WORD 

This  command  loads  the  word_name  variable  with  the  word  name  pointed  to  by  the 
word_pointer  and  increments  the  word_pointer  to  the  next  word  name  in  the  list. 

SET_UNKNOWN_WORD_COUNT 
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This  command  reads  the  integer  value  on  the  next  line  and  stores  it  into  the  un- 
knc;wn_vvord_coiint  variable.  The  unknown_word_count  is  used  with  the  next_unknown 
_word  command  for  determine  the  next  filename  to  generate. 

SET_UNKNOWN_WORD_COUNT 

1 

NEXTUNKNOWNWORD 

This  command  generates  the  next  unknown  word  file  name  and  loads  this  value  into 
the  word_name  buffer.  The  names  that  are  generated  follow  the  naming  convention  UN- 
KNOWN_WORD_#.  The  #  is  read  from  the  unknown_word_name_count  variable  and  is 
incremented  after  each  use. 

SETFILEDIRECTION 

This  commands  reads  the  value  of  the  next  line  and  sets  its  to  be  the  file_directi(Mi 
pointer.  This  pointer  determines  whether  word  names  are  input  from  the  file  or  comes  from 
the  database  list.  The  possible  choices  for  this  pointer  are  auto_create  and  script,  with  the 
former  being  used  almost  all  the  time. 

SET_nLE_DIRECTION 

AUTO_CREATE 

SET_PREFIX 

This  command  reads  the  value  of  the  next  line  and  stores  this  value  into  the  pre_fix 
variable.  This  variable  determines  which  set  of  words  are  used  as  the  test  words  for  recog¬ 
nition. 

SET.PREFIX 

TOM2_ 

SET_EXTRACTION_PREFIX 
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This  command  reads  the  value  of  the  next  line  and  stores  it  in  the  prefix  variable  in 
the  EXTRACTlON_PACKAGE.  This  command  affects  the  file  names  of  the  words  when  they 
extracted  using  the  extract  command.  The  extract  command  must  be  used  in  the  auto_un- 
known  or  auto_database  mode. 

SET_EXTRACTION_PREnX 

TOM3_ 

SET  EXTRACT  MODE 

This  command  set  the  extraction  mode  to  the  value  that  follows.  The  possible 
choices  are  normal,  auto_unlcnown,  or  auto_database.  Normal  cannot  be  used  in  a  script 
command  because  this  means  the  user  inputs  the  file  name  as  the  words  are  extracted,  this 
is  not  possible  in  a  batch  mode.  Auto_unlcnown  means  the  extraction  program  generates  file 
names  for  the  words  that  are  extracted  in  the  form  UNKNOWN_WORD_#.  Auto_database 
means  that  the  extract  program  generates  filename  for  the  words  begin  extracted  from  the 
database  list. 

SET_EXTRACT_MODE 

AUTO.UNKNOWN 

THIS_WORD 

This  command  display  to  the  screen  the  value  of  the  word_name  variable.  This  is 
used  to  let  the  user  known  the  progress  of  the  script. 

TRANSLATE 

This  command  reads  the  file  name  on  the  next  line  and  the  input_channel  value  on 
the  line  after  that,  and  uses  them  in  the  translate  program.  When  the  input_channel  is 
read,  if  the  value  is  network,  then  the  value  of  the  next  line  is  read  to  determine  the  network 
location  where  the  file  name  is  to  be  read  from. 

TRANSLATE 
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TOMl 

NETWORK 

CALVIN::DUAO:[TOMR] 

MAKE  SPEECH  Li^T 

Tnis  command  reads  the  file  name  on  the  next  line  and  creates  a  speech  list  of  it. 

MAKE_SPEECH_LIST 

TOMl 

EXTRACT 

This  command  automatically  extracts  words  into  a  file.  The  mak;e_speech_list  or 
translate  and  create_feature_list  commands  must  be  executed  first. 

CREATE_FEATURE_LIST 

This  command  uses  the  speech  list  and  creates  the  feature  list  used  for  extraction. 
The  make_speech_list  or  translate  command  must  be  executed  first. 

CREATE_ALL_FEATURE 

This  command  creates  the  eight  feature  of  the  word  name  of  the  variable 
word_name  when  the  file_direction  is  set  to  auto_create  or  the  file  name  that  follow  the 
command  when  the  file_direction  is  set  to  script 

SET_RECOGNIZER 

This  command  reads  the  recognizer  type  on  tie  next  line  set  the  recognizer  type  to 
be  it.  The  recognizer  types  are  time_warp,  two_dee,  error. 

SET_RECOGNIZER 

TIME_WARP 

RECOGNIZE 
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This  command  executes  the  current  recognizer  for  the  a  word  name  using  the  fea¬ 
ture  name  on  the  next  line.  The  word  name  is  read  from  the  word_name  variable  when  the 
file_direction  is  set  to  auto_create.  The  word  name  is  read  from  the  line  after  the  feature 
name  when  the  file_direction  is  set  to  script.  The  feature  names  are  the  four  letter  acronyms 
LPPD,  DPPS,  LFCC,  DFCC,  MFMC,  DFMC,  BLMC,  and  DLMC. 

RECOGNIZER 

LPPS 

UPDATEWORDLIST 

This  command  reads  the  feamre  name  on  the  next  line  and  brings  it  online.  All  fea¬ 
tures  to  be  used  for  recognition  must  be  brought  online  first. 

UPDATE_WORD_LIST 

LPPS 

FUSION_RECOGNmON 

This  command  create  fused  features  and  executes  the  current  recognizer.  The  num¬ 
ber  of  values  to  follow  this  command  varies  depending  on  how  many  features  are  in  the 
new  super  feature.  The  following  three  values  are  read  in  a  looping  fashion  until  the  last  one 
is  N;  name  of  the  feature,  number  of  components,  and  do  you  want  to  add  another  feature. 
After  the  last  value  is  N,  then  the  value  on  the  next  line  is  the  name  of  the  new  feature.  If 
the  file  direction  is  set  to  auto_create  then  the  value  of  word_name  is  the  file  for  recogni¬ 
tion,  if  not  then  the  filename  must  follow. 

FUSION_RECOGNrnON 

LPPS 

16 

Y 

DPPS 

10 

N 
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ALL  FEATURE  RESULT  OUTPUT 

This  command  outputs  the  feature  results  for  all  features  to  a  file.  The  create_re- 
port_file  command  must  be  used  first. 

ALL  FEATURE  SMALLEST_OUTPUT 

This  command  outputs  the  smallest  feature  results  for  all  feature  to  a  file.  The  cre- 
ate_report_file  command  must  be  used  first. 

FUSION 

This  command  creates  a  fusion  result  for  all  the  results  in  the  fusion  list. 
FUSION_RESULT 

This  command  displays  to  the  screen  the  smallest  value  in  the  fusion  results  list.  The 
fusion  command  must  be  executed  first. 

CREATE_SUBLIST 

This  command  reads  the  integer  value  on  the  next  line  and  creates  a  sublist  of  that 
size.  The  fusion  command  must  be  executed  first. 

CLEAR  FUSION  LIST 

This  command  clears  the  fusion  list,  which  must  be  done  when  going  on  to  recog¬ 
nize  the  next  word. 

CREATE_REPORT_FILE 

This  command  reads  the  file  name  on  the  next  line  and  creates  a.  report  file  of  that 
file  name. 

CREATE_REPORT_FILE 
TIME  WARP  RESULTS.DAT 


CLOSE_OUTPUT_FILE 

This  command  closes  the  report  file. 

CREATE_PREFIX_LIST 

This  command  creates  a  prefix  list  from  the  data  that  follows  for  use  with  the  cre- 
ate_tw_template  command.  The  data  to  follow  is  read  in  a  loop  fashion  consisting  of  two 
values:  the  prefix  name  and  do  you  want  to  add  another.  When  the  latter  value  is  N  then  the 
looping  stops. 

CREATE_PREFIX_LIST 

TOMl_ 

Y 

TOM2_ 

N 

CREATE_TW_TEMPLATE 

This  command  creates  a  template  using  the  prefix  list  and  output  prefix  value  that  is 
read  from  the  next  line.  The  output  prefix  value  is  the  prefix  value  that  is  used  to  store  the 
newly  created  word. 

CREATE_TW_TEMPLATE 

TOMS_ 

UPDATETEMPLATE 

The  command  reads  the  next  three  lines  to  obtain  the  values  of  the  out_prefix,  the 
in_prefix,  and  the  template_factor.  The  word  name  is  gotten  from  the  word_name  variable. 

UPDATE_TEMPLATE 

TOMS_ 

TOM3_ 

3 

IFAGREE 
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This  command  is  used  as  the  IF  part  of  an  if-then-else  statement  This  command 
reads  the  floating  point  value  from  the  next  line  to  get  the  goal  value.  This  goal  value  deter¬ 
mines  the  percentage  of  recognition  results  that  have  to  agree  in  order  to  make  this  state¬ 
ment  true.  The  structure  for  the  command  is  as  follows: 

IF.AGREE 

0.9 

true  statements 
ELSE 

false  statement 
END_IF 

It  is  not  necessary  to  have  any  true  statements,  the  ELSE  may  follow  the  goal  value. 
Similarly,  it  is  not  necessary  to  have  any  false  statements,  the  END_IF  may  follow  the 
ELSE  statement. 

GOTO 

This  command  is  used  to  jump  anywhere  in  the  script.  The  destinatiwi  name  is  read 
from  the  next  line. 

GOTO 

TEMPLATE  LOOP 

LOOP 

This  command  is  used  in  conjunction  with  the  goto  command.  The  loop  command 
means  that  the  line  that  follows  is  a  jump  to  label. 

ELSE 

This  command  is  used  in  conjunction  with  the  if_agree  command.  When  if_agree  is 
true  and  the  interpreter  reads  this  command  it  skips  all  lines  until  the  end_if  command. 
When  if_agree  is  false  then  all  lines  are  skipped  until  the  ELSE  command  is  read  then  ex¬ 
ecution  starts  again. 
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END  IF 


TTiis  command  is  used  in  conjunction  with  the  if_agree  and  else  command.  This 
command  is  a  label  for  the  else  command  to  jump  to.  If  this  command  is  read  otherwise 
then  the  interpreter  does  nothing  and  goes  on  to  the  next  command. 

END 

This  command  tells  the  interpreter  to  stop  executing  commands  and  go  back  the 
main  menu. 


141 


Apendix  B  Material  and  Equipment 


The  following  material  and  equipment  were  used  in  this  thesis: 

•  Digiatal  Sound  Corporation  (DSC)  analog  to  digital  convertor. 

•  VAXStation  11  running  the  VMS  operating  system. 

•  VAX  6000  model  420  running  the  VMS  operating  system. 

•  VAX  ADA  compiler 

•  Shure  Model  SM54  noise-reducing  microphone 
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Apendix  C  Computer  Source  Code 


The  following  is  a  list  of  ADA  source  code  developed  for  this  thesis: 


speech_control_panel.ada . 145 

extraction_package.ada . 159 

extraction_body.ada . 161 

feature_package.ada . 177 

feature_body.ada . 178 

recognition_package.ada . 198 

recognition_body.ada . 200 

template_package.ada . 210 

template_body.ada . 212 

rec_support_package.ada . 215 

rec_support_body.ada . 221 

fusion_package.ada . 245 

fusion_body.ada . 248 

fusion_rec_package.ada . 262 

database_package.ada . 264 

database_body.ada . 268 
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linked_list.ada . 273 

linked_list_body.ada . 278 

string_operations.ada . 283 

string_operations_body.ada . 291 
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-  [source_file_header_cc»nment] 

with  TEXTJO,  STRING_OPERATIONS,  CONTROL_C_lNTERCEPTION,  REC_SUPPORT_PACK- 
AGE; 

with  LINKED_LIST,  RECOGNITION_PACKAGE,  FUS10N_PACKAGE,  FEATURE_PACKAGE; 

with  DATABASE_PACKAGE,  FUSION  REC_PACKAGE,  EXTRACTION.PACKAGE,  TEM- 
PLATE.PACKAGE; 

use  TEXTJO,  STRING_OPERATIONS,  DATABASE.PACKAGE,  FUSION_REC_PACKAGE; 

use  EXTRACTION_PACKAGE,  FUSION_PACKAGE,  RECOGNlTION_PACKAGE,  TEM- 
PLATE_PACKAGE; 

pragma  ELABORATE  (CONTROL_C  JNTERCEPTION): 
procedure  SPEECH_CONTROL_PANEL  is 

-  [procedure_header_comment] 

use  FUSION.LIST,  FUSED_FEATURE_LIST; 

type  CHOICE JNTEGER  is  range  1..8; 

type  INPUT_MODE_TYPE  is  (INTERACTIVE,  BATCH); 

type  FILE_DIRECTION_TYPE  is  (AUTO.CREATE,  SCRIPT_FILE); 

INPUT.MODE :  INPUT_MODE_TYPE; 

INPUT.FILE,  REPORT.HLE :  nLE_TYPE; 

PREHX,  IN.PREFIX,  OUT.PREHX,  CARRIDGE_RETURN,  INPUT_LINE,  HLE.NAME  : 
VAR_STRING: 

HLE.DIRECTION  :  FILE_DIRECTION_TYPE  :=  AUTO.CREATE; 
UNKNOWN_WORD_NAME,  PRE.HX,  FEATURE.NAME,  WORD.NAME  :  VAR.STRING; 
TO.LOOP,  THE.RLE,  NEW_FEATURE_NAME :  VAR.STRING; 

RESULTS :  RESULT_RECORD_TYPE; 

TEMP,  UNKNOWN_WORD_COUNT.  SUBLIST_SIZE,  COMPONENTS  :  INTEGER  :=  1 ; 
TO.LIST :  DATABASE_PACKAGE.LIST_TYPE; 

EXTRACT_MODE :  EXTRACTION_PACKAGE.EXTRACT_MODE_TYPE; 

INPUT_CHANNEL ;  EXTRACTION_PACKAGE.INPUT_CHANNEL_TYPE; 

OUTPUT.CHANNEL :  FUS10N_REC_PACKAGE.OUTPUT_CHANNEL_TYPE  :=  FU- 
SION_REC_PACKAGE.nLE; 

NUMBER_CHAR.  ONLINE,  YES_OR_NO :  CHARACTER; 

NUMBER.STRING :  STRING(L.l); 

NEW_FEATURES  :  FUSION_REC_PACKAGE.FEATURE_RECORD_TYPE; 
FUSED_FEATURE_HEADJTJSED_FEATURE_TAIL :  FUSED_FEATURE_LIST.L1ST; 
WORD_POINTER :  DATABASE_LIST.LIST; 

UPDATE.FLAG,  DOING_BATCH  ;  BOOLEAN  :=  FALSE; 

CHOICE :  CHOICE_INTEGER; 

THIS.STRING :  STRING(1..80); 

TEMP_FACTOR,  GOAL.AGREE,  PRECENT_AGREE :  FLOAT; 

EXTRACTION_MODE :  EXTRACTION_PACKAGE.EXTRACT_MODE_TYPE; 


-  [later_declarativejtem]... 
begin 


145 


NEW_LINE  (2); 

PUT_LINE  (ITEM  =>  “Welcome  to  the  AFIT  Speech  Recognition  Test  System”); 


NEW_LINE  (2); 

PUT_LINE  (ITEM  =>  “ 

PUT_LINE(ITEM=>“ 

/\  /  \  1 

\  t”); 

PUT_LINE(ITEM=>“ 

/  \  1  11 

1  1”); 

PUT_LINE(ITEM=>“ 

/  \  \  1 

/  1”); 

PUT_LINEaTEM=>“ 

1  1  \_ 

_ !  1”); 

PUT_LINE  (ITEM  =>  “ 

1  1 

\  i\  D; 

PUT_LINE(ITEM=>“ 

1  1  \  1 

\  1”); 

PUT_LINE(ITEM=>“ 

1  II  II 

\  1”); 

PUT.LINE  (ITEM  =>  “ 

1  1  \  / 

1  \  1”); 

NEW_LINE(1); 
DECLARE.LOOP:  loop 
declare 


package  FEATURES  is  new  FEATURE_PACKAGE  (NUMBER  =>512, 
M  =>  20); 


use  FEATURES; 


FEATURE.MODE ;  FEATURES.FEATURE_MODE_TYPE; 

RECOGNIZER ;  RECOGNrnON_PACKAGE.RECOGNIZER_TYPE  :=  RECOGNITION.PACK- 
AGE.TIME.WARP; 


package  CHOICE_INTEGER_IO  is  new  TEXTJO.INTEGERJO  (CHOICEJNTEGER); 

package  ENUMERATIONJO  is  new  TEXT_IO.ENUMERATION_IO  (HLE.DIREC- 
TION.TYPE); 

package  ENUMERATION  lOl  is  new  TEXTJO.ENUMERATIONJO  (EXTRACTION_PACK- 
AGE.INPUT_CHANNEL_TYPE); 

package  ENUMERATION_I02  is  new  TEXTJO.ENUMERATIONJO  (EXTRACTION  PACK- 
AGE.EXTRACT_MODE_TYPE); 

package  ENUMERATION  103  is  new  TEXTJO.ENUMERATIONJO  (FEATURES.FEA- 
TURE_MODE_TYPE); 

package  ENUMERATION J04  is  new  TEXT JO.ENUMERAT10N  JO  (INPUT_MODE_TYPE); 

package  ENUMERATI0N_I05  is  new  TEXTJ0.ENUMERATI0N_10  (RECOGNITION.PACK- 
AGE.RECOGNIZER_TYPE); 

package  FLOAT  JO  is  new  TEXT_IO.  FLOAT  JO  (FLOAT); 
package  INTEGER  JO  is  new  TEXTJO.INTEGER_IO  aNTEGER); 
use  FLOAT  JO,  ENUMERATIONJO.  ENUMERATIONJO  1; 

use  ENUMERATION  J02,  ENUMERATION  J03,  CHOICEJNTEGER  JO,  INTEGER  JO; 
use  ENUMERATION J04,  ENUMERATION  JOS; 


RESULTS.POINTER :  FUSION.LIST.LIST  :=  FUSION_HEAD; 
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begin 

MAIN:  loop 
begin 

if  NOT  DOING.B  ATCH  then 
NEW_LINE; 

PUT_LINE  (ITEM  =>  “  1  -  GOTO  EXTRACTION  OPERATIONS”); 

PUT_LINE  (ITEM  =>  “  2  -  GOTO  DATABASE  OPERATIONS”); 

PUT_LINE  (ITEM  =>  “  3  -  GOTO  FEATURE  OPERATIONS”); 

PUT_LINE  (ITEM  =>  “  4  -  GOTO  RECOGNITION  OPERATIONS”); 

PUT_LINE  (ITEM  =>  “  5  -  GOTO  FUSION  OPERATIONS”); 

PUT_LINE  (ITEM  =>  “  6  -  GOTO  TEMPLATE  OPERATIONS”); 

PUT_LINE  (ITEM  =>  “  7  -  GOTO  BATCH  OPERATIONS”); 

PUT_LINE  (ITEM  =>  “  8  -  TO  QUIT’); 

NEW_LINE; 

PUT  (ITEM  =>  “  CHOICE  ->  “); 

GET  (ITEM  =>  CHOICE); 

GET_LINE(CARRIDGE_RETURN); 

else 

CHOICE  :=  7; 
end  if; 

case  CHOICE  is 
when  I  ■=> 

EXTRACTION_CONTROL_PANEL; 
when  2  => 

DATABASE_CONTROL_PANEL(UPDATE_FLAG); 
exit  MAIN  when  UPDATE_FLAG  =  TRUE; 
when  3  => 

FEATURE_CONTROL_PANEL; 
when  4  => 

RECOGNmON_CONTROL_PANEL; 
when  5  => 

FUSION_CONTROL_PANEL; 
when  6  => 

TEMPLATE_CONTROL_PANEL; 
when  7  => 

if  NOT  DOING_B  ATCH  then 

PUT.LINE  (ITEM  =>  “TYPE  IN  NAME  OF  SCRIPT  FILE,  LESS  EXTENSION”); 
GET_LINE  (ITEM  =>  HLE.NAME); 

FILE_NAME  :=  FILE_NAME&”.SCR”; 

OPEN( 

FILE  =>  INPUT_FILE, 
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MODE  =>  IN.HLE, 

NAME  =>  HLE.NAME); 
WORD_POINTER  :=  DATABASE.HEAD; 
DOING.BATCH  :=  TRUE; 
end  if; 

BEGIN 


INNER;  loop 

GET_LINE  (RLE  =>  INPUT_nLE.  ITEM  =>  INPUT_LINE); 
if  STRING_VALUE(1  JNPUT_LINE)  =  then 
NULL; 

elsif  IS_EQUALaNPUT_LINE,”PRINT_LINE”)  then 
GET_LINE  (RLE  =>  INPUT_RLE,  ITEM  =>  INPUT_LINE); 

PUT_LINE  (ITEM  =>  INPUT_LINE); 

elsif  IS_EQUAL(INPUT_LINE.”SET_DIRECTORY_NAME”)  then 
GET_LINE  (RLE  =>  INPUT.RLE,  ITEM  =>  INPUT_LINE): 
SET_DIRECTORY_NAME(INPUT_LINE); 
exit  MAIN; 

elsif  IS_EQUALaNPUT_LINE,”SET_LIBRARY_PRERX”)  then 
GET.LINE  (FILE  =>  INPUT.RLE,  ITEM  =>  INPUT_LINE); 
SET_LIBRARY_PRERX(INPUT_LINE); 
exit  MAIN; 

elsif  lS_EQUALaNPUT_LlNE,”ADD_LIBRARY_WORD”)  then 
GET_L.\E  (FILE  =>  INPUT.RLE,  ITEM  =>  INPUT_L1NE); 

ADD_LIBRARY_WORD(I  NPUT_LINE); 
exit  MAIN; 

elsif  IS_EQUAL(INPUT_LINE,”DELETE_LIBRARY_WORD”)  then 
GET_LINE  (RLE  =>  INPUT_RLE,  ITEM  =>  INPUT_LINE); 
DELETE_LIBRARY_WORD(INPUT_LINE); 
exit  MAIN; 

elsif  IS_EQUAL(INPUT_LINE,”RESET_DATABASE_LIST’)  then 
RESET_DATABASE_LIST; 

elsif  IS_EQUAL(INPUT_LINE,”SET_LIST_POINTER”)  then 

DATABASE_PACKAGE.ENUMERATION_10.GET  (RLE  =>  INPUT_RLE, 

ITEM  =>  TO_LIST); 

GET_LINE  (FILE  =>  INPUT_RLE.  ITEM  =>  CARRIDGE_RETURN); 
SET_LIST_POINTER(TO_LIST); 

elsif  IS_EQUALaNPUT_LINE,”RESET_WORD_LIST’)  then 
WORD_POINTER  :=  DATABASE_HEAD; 

elsif  IS_EQUALaNPUT_LINE,”NEXT_WORD”)  tiien 
NEXT_W0RD(W0RD_NAME,W0RD_P01NTER); 
elsif  IS_EQUALaNPUT_LINE.”SET_UNKNOWN_WORD_COUNT’)  then 
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GET  (FILE  =>  INPUT_FILE,  ITEM  =>  UNKNOWN_WORD_COUNT); 

GET_LINE  (FILE  =>  INPLTT.HLE,  ITEM  =>  CARP'DGE_RETURN); 

elsif  IS_EQUAL(INPUT_LINE,”NEXT_UNKNOWN_WORD”)  then 

if  UNKNOWN_WORD_COUNT  <  10  then 

NUMBER_CHAR  :=  CHARACTER’ VAL(UN- 
KNOWN_WORD_COUNT+48); 

WORD_NAME  :=  “UNKNOWN_WORD_”&NUMEER_CHAR; 

else 

TEMP  :=  UNKNOWN_WORD_COUNT/10; 

NUMBER_CHAR  ;=  CHARACTER’VAL(TEMP+48); 

WORD_NAME  :=  ‘'UNKNOWN_WORD_’’&NUMBER_CHAR; 

TEMP  ;=  UNKNOWN_WORD_COUNT  MOD  10; 

NUMBER_CHAR  :=  CHARACTER’VAL(TEMP+48); 

WORD_NAME  :=  WORD_NAME&NUMBER_CHAR; 
end  if; 

UNKNOWN_WORD_COUNT  :=  UNKNOWN_WORD_COUNT  +  1; 

elsif  IS_EQUALaNPUT_LINE,”SET_nLE_DIRECTION”)  then 
GET  (FILE  =>  INPUT.HLE,  ITEM  =>  HLE.DIRECTION); 

GET_LINE  (HLE  =>  INPUT_FILE,  ITEM  =>  CARRIDGE_RETURN); 

elsif  IS_EQUALaNPUT_UNE,”SET_PREnX”)  then 
GET.LINE  (HLE  =>  INPUT_nLE.  ITEM  =>  PRE.HX); 

elsif  IS_EQUALaNPUT_LINE.”SET_EXTRACTION_PREnX”)  then 
GET.LINE  (FILE  =>  INPUT.FILE,  ITEM  =>  EXTRACnON.PACKAGEPREHX); 

elsif  IS_EQUAL(INPUT_LINE,”SET_EXTRACT_MODE”)  then 
GET  (HLE  =>  INPUT.HLE,  ITEM  =>  EXTRACTION.MODE); 

GET_L1NE  (FILE  =>  INPUT_FILE.  ITEM  =>  CARRIDGE_RETURN); 
SET_EXTRACTION_MODE('EXTRACTION_MODE); 
elsif  IS_EQUAL(INPUT_LINE,”THIS_WORD”)  then 
PUT  (ITEM  =>  “PRCX^SSING  WORD  ->  “); 

PUT  (ITEM  =>  WORD_NAME); 

NEW_LINE; 

elsif  IS_EQUAL(INPUT_LINE;TRANSLATE”)  then 
GET.LINE  (RLE  =>  INPUT_F1LE.  ITEM  =>  nLE_NAME); 

GET  (FILE  =>  INPLT_nLE.  ITEM  =>  INPUT_CHANNEL); 

GET_LINE  (FILE  =>  INPUT.HLE,  ITEM  =>  CARRIDGE_RETURN); 
if  INPUT.CHANNEL  =  NETWORK  then 
GET_LINE  (RLE  =>  INPUT.RLE,  ITEM  =>  EXTRACTION.PACK- 

AGE.DATABASE); 

end  if; 
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TRANSLATE  (FILE_NAME,INPUT_CHANNEL); 

elsif  lS_EQUAL(INPUT_LINE,”MAKE_SPEECH_LlSr’)  then 
GET_LINE  (FILE  =>  INPUT_FILE,  ITEM  =>  FILE_NAME); 

MAKE_SPEECH_LIST  (HLE.NAME); 

elsif  IS_EQUAL(INPUT_LINE,”EXTRACT”)  then 
GET  (FILE  =>  INPUT_nLE,  ITEM  =>  EXTRACT_MODE); 

GET_LINE  (FILE  =>  INPUT_FILE,  ITEM  =>  CARRIDGE_RETURN); 

EXTRACT  (EXTRACT_MODE); 

elsif  IS_EQUAL(INPUT_LINE  ”CREATE_FEATURE_LISr’)  then 
CREATE_EXTRACTION_FEATURE_LIST; 

elsif  IS_EQUAL(INPUT_LINE,”CREATE_ALL_FEATURE”)  then 
ifnLE_DIRECTION  =  AUTO.CREATE  then 
nLE_NAME  ;=  PRE_FlX&WORD_NAME; 
else 

GET_LINE  (RLE  =>  INPUT_FILE,  ITEM  =>  FILE_NAME); 
end  if; 

CREATE_ALL_FEATURE(FILE_NAME); 

elsif  IS_EQUAL(INPUT_LINE,”SET_RECOGNIZER”)  then 

GET  (RLE  =>  INPUT.RLE,  ITEM  =>  RECOGNIZER); 

GET_LINE  (FILE  =>  INPUT_RLE,  ITEM  =>  CARRIDGE.RETURN); 

elsif  1S_EQUAL(INPUT_LINE.”REC0GNIZE”)  then 

GET_LINE  (FILE  =>  INPUT_RLE,  ITEM  =>  FEATURE_NAME); 

if  IS_EQUAL(FEATURE_NAME  ”LPPS”)  then 
if  FILE_DIRECTION  =  AUTO_CREATE  then 

FILE_NAME  ;=  PRE_RX&WORD_NAME; 

else 

GET_LINE  (RLE  =>  1NPUT_RLE.  ITEM  =>  RLE.NAME); 
end  if: 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  LPPS_SPEECH.kECOGNIZE(RLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME”LPPS_TW”); 

elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  LPPS_SPEECH.RECOGNIZE_ERROR(RLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”LPPS_ER”); 
else 

RESULTS  :=  LPPS_SPEECH.RECOGNIZE_TWO_DEE(RLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”LPPS_2D”); 
end  if; 
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elsif  1S_EQUAL(FEATURE_NAME,”DPPS”)  then 
if  HLE.DIRECTION  =  AUTO_CREATE  then 
nLE_NAME  :=  PRE_FIX&WORD_NAME; 
else 

GET_LINE  (RLE  =>  INPUT.RLE,  ITEM  =>  nLE_NAME); 
end  if; 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  DPPS_SPEECH.RECOGNIZE(nLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”DPPS_TW”); 

elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  DPPS_SPEECH.RECOGNIZE_ERROR(FILE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME.”DPPS_ER”); 
else 

RESULTS  :=  DPPS_SPEECH.RECOGNIZE_TWO_DEE(nLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME.”DPPS_2D”); 
end  if; 

elsif  IS_EQUAL(FEATURE_NAME,”LFCC”)  then 
if  FILE_DIRECTION  =  AUTO_CREATE  then 
FILE_NAME  :=  PRE_FIX&WORD_NAME; 
else 

GET.LINE  (RLE  =>  INPUT_RLE,  ITEM  =>  FILE.NAME); 
end  if; 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  LFCC_SPEECH.RECOGNIZE(RLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”LFCC_TW”); 

elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  LFCC_SPEECH.RECOGNIZE_ERROR(RLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”LFCC_ER”); 
else 

RESULTS  ;=  LFCC_SPEECH.RECOGNIZE_TWO_DEE(FILE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME”LFCC_2D”); 
end  if; 

elsif  IS_EQUAL(FEATURE_NAME  ”DFCC”)  then 
ifRLE_DIRECTION  =  AUTO.CREATE  then 
FILE_NAME  :=  PRE_RX&WORD_NAME; 
else 

GET_LINE  (RLE  =>  INPUT_RLE,  ITEM  =>  FILE_NAME); 
end  if; 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  DFCC_SPEECH.RECOGNIZE(RLE_NAME): 
ASSIGN(RESULTS.FEATURE_NAME,”DFCC_TW”): 
elsif  RECOGNIZER  =  ERROR  then 
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RESULTS  :=  DFCC_SPEECH.RECOGNIZE_ERROR(nLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME”DFCC_ER”); 
else 

RESULTS  :=  DFCC_SPEECH.RECOGNIZE_TWO_DEE(nLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME”DFCC_2D”); 
end  if; 

elsif  IS_EQUAL(FEATURE_NAME;’MFMC”)  then 
ifnLE_DIRECTION  =  AUTO_CREATE  then 

HLE_NAME  :=  PRE_FIX&WORD_NAME; 
else 

GET.LINE  (FILE  =>  INPUT_nLE,  ITEM  =>  FILE_NAME); 
end  if; 

if  RECOGNIZER  =  TIME_WARP  then 

RESULTS  ;=  MFMC_SPEECH.RECOGNIZE(FlLE_NAME); 

ASSIGN(RESULTS.FEATURE_NAME,”MFMC_TW”); 
elsif  RECOGNIZER  =  ERROR  then 

RESULTS  :=  MFMC_SPEECH.RECOGNIZE_ERROR(nLE_NAME); 
ASS!GN(RESULTS.FEATURE_NAME,”MFMC_ER”); 
else 

RESULTS  :=  MFMC_SPEECH.RECOGNIZE_TWO_DEE(FILE_NAME); 

ASSIGN(RESULTS.FEATURE_NAME,”MFMC_2D”); 
end  if; 

elsif  IS_EQUAL(FEATURE_NAME,”DFMC”)  then 
if  nLE.DIRECTION  =  AUTO.CREATE  then 

FILE.NAME  :=  PRE_nX&WORD_NAME; 
else 

GET_LINE  (RLE  =>  INPUT.HLE,  ITEM  =>  FILE_NAME); 
end  if; 

if  RECOGNIZER  =  TIME_WARP  then 

RESULTS  :=  DFMC_SPEECH.RECOGNIZE(nLE_NAME); 

ASSIGN(RESULTS.FEATURE_NAME”DFMC_TW”); 
elsif  RECOGNIZER  =  ERROR  then 

RESULTS  :=  DFMC_SPEECH.RECOGNIZE_ERROR(nLE_NAME); 

assign(results.feature_name;’dfmc_eR”); 

else 

RESULTS  :=  DFMC_SPEECH.RECOGNIZE_TWO_DEE(nLE_NAME); 

ASSIGN(RESULTS.FEATURE_NAME”DFMC_2D”); 
end  if; 

elsif  IS_EQUAL(FEATURE_NAME,”BLMC”)  then 
ifFlLE_DIRECTION  =  AUTO.CREATE  then 
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nLE_NAME  :=  PRE_FIX&WORD_NAME; 
else 

GET_LINE  (FILE  =>  INPUT_FILE,  ITEM  =>  FILE_NAME); 
end  if; 

if  RECOGNIZER  =  TIME.WARP  then 
RESULTS  :=  BLMC_SPEECH.RECOGNIZE(nLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”BLMC_TW”): 

elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  BLMC_SPEECH.RECOGNIZE_ERROR(nLE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”BLMC_ER”): 
else 

RESULTS  :=  BLMC_SPEECH.RECOGNlZE_TWO_DEE(FILE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME”BLMC_2D”); 
end  if; 

elsif  IS_EQUAL(FEATURE_NAME,”DLMC”)  then 
if  RLE.DIRECTION  =  AUTO_CREATE  then 
nLE_NAME  :=  PRE_FIX&WORD_NAME; 
else 

GET_LINE  (HLE  =>  INPUT.HLE,  ITEM  =>  FILE.NAME); 
end  if; 

if  RECOGNIZER  =  TIME.WARP  then 

RESULTS  ;=  DLMC_SPEECH.RECOGNIZE(FILE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC_TW”); 

elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  DLMC_SPEECH.RECOGNIZE_ERROR(FILE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC_ER”); 
else 

RESULTS  :=  DLMC_SPEECH.RECOGNIZE_TWO_DEE(FILE_NAME); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC_2D”); 

end  if; 
end  if; 

ADD_TO(RESULTS,FUSION_HEAD,FUSION_TAIL); 

elsif  IS_EQUAL(INPUT_LINE.”UPDATE_WORD_LIST’)  then 
GET_LINE  (FILE  =>  INPUT.FILE,  ITEM  =>  FEATURE_NAME); 
if  IS_EQUAL(FEATURE_NAME,”LPPS”)  then 
LPPS_SPEECH.UPDATE_WORD_LIST; 
elsif  IS_EQUAL(FEATURE_NAME,”DPPS”)  then 
DPPS_SPEECH.UPDATE_WORD_LIST; 
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elsif  IS_EQUAL(FEATURE_NAME,”LFCC”)  then 
LFCC_SPEECH.UPDATE_WORD_LIST; 
elsif  IS_EQUAL(FEATURE_NAME,”DFCC”)  then 
DFCC_SPEECH.UPDATE_WORD_LIST; 
elsif  IS_EQUAL(FEATURE_NAME,”MFMC”)  then 
MFMC_SPEECH.UPDATE_\VORD_LIST; 
elsif  IS_EQUAL(FEATURE_NAME  ”DFMC”)  then 
DFMC_SPEECH.UPDATE_WORD_LIST; 
elsif  IS_EQUAL(FEATURE_NAME.”BLMC”)  then 
BLMC_SPEECH.UPDATE_WORD_LIST; 
elsif  IS_EQUAL(FEATURE_NAME,”DLMC”)  then 
DLMC_SPEECH.UPDATE_WORD_LIST; 
end  if; 

elsif  IS_EQUALaNPUT_LINE  ”FUSI0N_REC0GN1T10N”)  then 
COMPONENTS  :=  0; 

CLEAR_LIST(FUSED_FEATURE_HEAD,FUSED_FEATURE_TAIL); 

INPUT:  lcx)p 

GET_L1NE  (HLE  =>  INPUT.HLE,  ITEM  =>  NEW_FEATURES.NAME); 

GET  (HLE  =>  INPUT_nLE,  ITEM  =>  NEW_FEATURES.COMPONENTS); 

COMPONENTS  :=  COMPONENTS  +  NEW_FEATURES.COMPONENTS; 

GET.LINE  (FILE  =>  INPUT.HLE,  ITEM  =>  CARRIDGE.RETURN); 

FUSED_FEATURE  LIST.ADD_TO(NEW_FEATURES.FUSED_FEA- 
TURE_HEAD.FUSED_FEATURE_TAIL); 

GET  (RLE  =>  INPUT.RLE,  ITEM  =>  ONLINE); 

GET.LINE  (FILE  =>  INPUT.RLE,  ITEM  =>  CARRIDGE_RETURN); 

exit  INPUT  when  ONLINE  =  ‘N’  OR  ONLINE  =  ‘n’; 

end  loop  INPUT; 

GET_L1NE  (RLE  =>  INPUT_RLE.  ITEM  =>  NEW_FEATURE_NAME); 
declare 

package  FUSED_SPEECH  is  new  REC_SUPPORT_PACKAGE 
(NUMBER_OF_COMPONENTS  =>  COMPONENTS, 

NAME_OF_FEATURE  =>  STRING. VALUE(NEW_FEATURE_NAME)); 
use  FUSED.SPEECH; 
begin 

if  RLE.DIRECnON  =  AUTO.CREATE  then 
FILE.NAME  ;=  PRE.FIX&WORD.NAME; 
else 

GET.LINE  (RLE  =>  INPUT.RLE,  ITEM  =>  FILE.NAME); 
end  if; 

FUSED.SPEECH.CREATE.FUSION.WORD.LIST(FUSED.FEATURE.HEAD,FUSED.FEA- 

TURE.TAIL); 

FUSED.SPEECH.CREATE.FUSION.WORD(RLE.NAME.FUSED.FEA- 

TURE.HEADJTJSED_FEATURE.TAIL); 
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if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  FUSED_SPEECH.RECOGNIZE(FILE_NAME); 

RESULTS.FEATURE_NAME  :=  NEW_FEATURE_NAME&”_TW”; 

elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  FUSED_SPEECH.RECOGNIZE_ERROR{FILE_NAME); 
RESULTS.FEATURE_NAME  ;=  NEW_FEATURE_NAME&”_ER”; 
else 

RESULTS  :=  FUSED_SPEECH.RECOGNIZE_TWO_DEE(nLE_NAME); 
RESULTS.FEATURE_NAME  :=  NEW_FEATURE_NAME&”_2D”; 
end  if; 

ADD_TO(RESULTS,FUSION_HEAD,FUSION_TAIL); 

end; 

elsif  IS_EQUAL(INPLT_LINE,”ALL_FEATURE_RESULT_OUTPUT*)  then 
ALL_FEATURE_RESULTS_OUTPUT(OUTPUT_CHANNEL.REPORT_nLE); 

elsif  IS_EQUAL(INPUT_LINE,”ALL_FEATURE_SMALLEST_RESULT”)  then 
ALL_FEATURE_SMALLEST_RESULT(OUTPUT_CHANNEL,REPORT_FlLE); 

elsif  IS_EQUALaNPUT_LINE,”FUSION”)  then 
FUSION; 

elsif  IS_EQUALaNPUT_LlNE  ”FUSION_RESULT’)  then 
FUSION.RESULT; 

elsif  IS_EQUALaNPUT_LINE.”CREATE_SUBLIST”)  then 

INTEGERJO.GET  (FILE  =>  INPUT.HLE,  ITEM  =>  SUBLIST_SIZE); 
GET_LINE  (FILE  =>  INPUT.HLE,  ITEM  =>  CARRIDGE.RETURN); 

C  REATE_SUBLIST(SUBLIST_SIZE); 

elsif  IS_EQUAL(INPUT_LINE,”CLEAR_FUSION_LlST”)  then 
CLEAR_LIST(FUSION_HEAD.FUSION_TAIL); 

elsif  IS_EQUALaNPUT_LINE.”CREATE_REPORT_FILE”)  then 
GET_LINE  (HLE  =>  INPUT.HLE,  ITEM  =>  INPUT_LINE); 

CREATE  ( 

HLE  =>  REPORT_nLE, 

MODE  =>  OUT_nLE, 

NAME  =>  INPUT_LINE); 

elsif  IS_EQUAL(INPUT_LINE,”CLOSE_OUTPUT_nLE”)  then 
CLOSE  (FILE  =>  REPORT.HLE); 

elsif  IS_EQUAL(INPUT_LINE,”CREATE_PREFrX_LISr’)  then 
PREnX_LIST.CLEAR_LIST(PREnX_HEAD4’REFIX_TAIL); 

GET_PREnXES:  loop 

GET_LINE  (HLE  =>  INPUT_FILE,  ITEM  =>  PRERX); 
PREnX_LlST.ADD_TO(PREnXJPREFIX_HEADd>REnX_TAIL); 

GET  (FILE  =>  INPUT.HLE,  ITEM  =>  ONLINE); 

GET_LINE  (FILE  =>  INPUT.RLE,  ITEM  =>  CARRIDGE_RETURN); 
exit  GET_PREnXES  when  ONLINE  =  ‘N’  OR  ONLINE  =  ‘n'; 
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end  loop  GET.PREFIXES; 

elsif  IS_EQUALaNPUT_LINE,”CREATE_TW_TEMPLATE”)  then 

GET_LINE  CFILE  =>  1NPXJT_FILE,  ITEM  =>  OUT.PREHX); 

LPPS_TEMP.CREATE_TW_TEMPLATE(OUT_PREFIX,WORD_NAME); 

DPPS_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,WORD_NAME); 

LFCC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,WORD_NAME); 

DFCC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,WORD_NAME); 

MFMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,WORD_NAME); 

DFMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,WORD_NAME); 

BLMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,WORD_NAME); 

DLMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,WORD_NAME); 

elsif  IS_EQUALaNPUT_LINE,”UPDATE_TEMPLATE”)  then 

GET_LINE  (HLE  =>  INPUT_FILE,  ITEM  =>  OUT.PREHX); 

GET_LINE  (HLE  =>  INPUT_nLE,  ITEM  =>  IN.PREHX); 

GET  (FILE  =>  INPUT_nLE,  ITEM  =>  TEMP.FACTOR); 

GET_LINE  (HLE  =>  INPUT.HLE,  ITEM  =>  CARR1DGE_RETURN); 

LPPS_TEMP.UPDATE_TW_TEMPLATE(IN_PREnx,OUT_PREnX,WORD_NAME,TEMP_FAC- 

TOR); 

DPPS  TEMP.UPDATE_TW_TEMPLATE(IN_PREFlX,OUT_PREnX,WORD_NAME,TEMP_FAC- 
TOR); 

LFCC  TEMP.UPDATE  TW_TEMPLATEaN_PREnX,OUT_PREnX,WORD_NAME,TEMP_FAC- 
TOR); 

DFCC  TEMP.UPDATE  TW_TEMPLATE(IN_PREFDC,OUT_PREFIX,WORD_NAME.TEMP_FAC- 
TOR); 

MFMC  TEMP.UPDATE_TW_TEMPLATEaN_PREnX,OUT_PRE- 
nX,WORD_NAME,TEMP_FACTOR); 

DFMC.TEMP.UPDATE  TW_TEMPLATE(IN_PREnX,OUT_PREnX,WORD_NAME.TEMP_FAC- 
TOR); 

BLMC_TEMP.UPDATE_TW_TEMPLATEaN_PREnX,OUT_PREnX,WORD_NAME.TEMP_FAC- 

TOR); 

DLMC_TEMP.UPDATE_TW_TEMPLATE(IN_PREFIX,OUT_PRE- 

FIX.WORD_NAME.TEMP_FACTOR); 

elsif  IS_EQUALaNPUT_LINE,”IF_AGREE”)  then 
PRECENT.AGREE  ;=  AGREE; 

GET  (FILE  =>  INPUT.HLE,  ITEM  =>  GOAL_AGREE); 

GET_LINE  (HLE  =>  INPUT.HLE,  ITEM  =>  CARRIDGE_RETURN); 
if  PRECENT.AGREE  <  GOAL. AGREE  then 
TO.ELSE;  loop 

GET.LINE  (HLE  =>  INPUT.nLE,  ITEM  =>  INPUT.LINE); 
exit  TO.ELSE  when  IS_EQUAL(INPUT_LINE  "ELSE”); 
end  loop  TO.ELSE; 
end  il; 

elsif  IS_EQUALaNPUT_LINE,”GOTO”)  then 

GET.LINE  (HLE  =>  INPUT.FILE.  ITEM  =>  TO.LOOP); 

RESET(HLE  =>  INPUT.HLE); 
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LOOPITY:  loop 

GET_LINE  (FILE  =>  INPUT_FILE,  ITEM  =>  INPUT_LINE); 
exit  LOOPITY  when  IS_EQUAL(INPUT_LINE,TO_LOOP); 
end  loop  LOOPITY; 

elsif  IS_EQUALaNPUT_LINE,”LOOP”)  then 

GET_LINE  (HLE  =>  INPUT.HLE,  ITEM  =>  TO_LOOP); 
elsif  IS_EQUALaNPUT_LINE,”ELSE”)  then 
TO_END_IF;  loop 

GET_LINE  (INPUT_nLE,  ITEM  =>  INPUT_LINE); 
exit  TO_END_IF  when  IS_EQUAL(INPUT_LINE  ”END_IF”); 
end  locq)  TO_ENDJF; 

elsif  IS_EQUALaNPUT_LINE.”END_IF’)  then 
NULL; 

elsif  IS_EQUALaNPUT_LINE,”END”)  then 
CLOSE  (RLE  =>  INPUT.RLE); 

DOING_BATCH  :=  FALSE; 
exit  MAIN; 
else 

PUT_LINE  GTEM  =>  “THE  FOLLOW  COMMAND  WAS  NOT  RECONIZED”); 

PUT_LINE  GTEM  =>  INPUT_LINE); 

DOING.BATCH  :=  FALSE; 
exit  DECLARE_LOOP; 
end  if; 

end  loop  INNER; 
exception 

when  DATABASE_PACKAGE.DATABASE_LIST.UNDER_FLOW  I  NAME_ERROR  => 
TO_END_OF_LOOP;  loop 
GET_LINE  (INPUT_FILE,  ITEM  =>  INPUT_LINE); 
exit  TO_END_OF_LOOP  when  IS_EQUAL(INPUT_LINE,”GOTO”); 
end  loop  TO_END_OF_LOOP; 

GET.LINE  (INPUT.HLE,  ITEM  =>  INPUT_LINE); 
end; 

when  8  => 

exit  DECLARE_LOOP; 
end  case; 
exception 

when  DATA_ERROR  => 

NEW_L1NE; 

PUT.LINE  (ITEM  =>  “FOR  CRYING  OUT  LOUD,  PLEASE  TYPE  A  NUMBER  BETWEEN  1 
AND  6,  SHEEEEEESH”); 

end; 

end  loop  MAIN; 
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end; 

end  loop  DECLARE_LOOP; 

NEW_LINE(2); 

PUT_LINE  (ITEM  =>  “BYE  BYE,  PLEASE  COME  AGAIN”); 
-[exception_part] 

end  SPEECH_CONTROL_PANEL; 


158 


-  [source_file_header_comment] 

with  TEXTJO,  SEQUENTIALJO,  FLOAT_MATH_LIB,  STRING_OPERATIONS; 
with  LINKED_LIST,  DATABASE_PACKAGE,  FEATUREJPACKAGE; 
use  TEXTJO,  FLOAT_MATH_LIB,  STRING_OPERATIONS,  DATABASE_PACKAGE; 
package  EXTRACTION_PACKAGE  IS 

-  [package_specification_header_comment] 

type  HEADER_TYPE  is  array  GNTEGER  RANGE  1..256)  of  SHORT_INTEGER; 
package  INJNTEGERJO  is  new  SEQUENTIALJO  (SHORT_INTEGER); 
package  IN2_INTEGER JO  is  new  SEQUENTIALJO  {HEADER_TYPE): 

type  EXTRACT_MODE_TYPE  is  (NORMAL,  AUTO_UNKNOWN,  AUTO_DATABASE); 
type  INPUT_CHANNEL_TYPE  is  (NETWORK,  LOCAL); 

INPUT_CHANNEL :  INPUT_CHANNEL_TYPE  :=  NETWORK; 

VARIABLE :  HEADER_TYPE; 

EXTRACT_MODE :  EXTRACT_MODE_TYPE  :=  NORMAL; 

INPUT. VARIABLE ;  SHORT JNTEGER; 

OUTPUT. VARIABLE :  FLOAT; 

INPUT.FILE :  IN2.INTEGER.IO.nLE_TYPE; 

SPEECH.HLE,  OUTPUT.FILE ;  TEXT.IO.FILE.TYPE; 

DUMMY,  EXTENSION,  RLE,  FILE.NAME,  FILE  NAME  TOO :  STRING  OPERA¬ 
TIONS.  VAR.STRING; 

POINTER,  COUNT :  INTEGER; 

START.COUNT :  INTEGER  :=  6; 

END.COUNT :  INTEGER  :=  12; 

RLTER  :  INTEGER  :=  5; 

PREFIX,  DATABASE ;  VAR.STRING; 

CHANGE :  CHARACTER; 

package  FEATURE.LIST  is  new  LINKED.LIST  (INTEGER); 
package  INTEGER  JO  is  new  TEXT.IO.INTEGER.IO  (INTEGER); 
package  OUT.FLOAT.IO  is  new  TEXT.IO.FLOAT.IO  (FLOAT); 

package  ENUMERATION  JO  is  new  TEXT.IO.ENUMERATION.IO  (INPUT.CHANNEL.TYPE); 

package  EX.ENUMERATION.IO  is  new  TEXT.IO.ENUMERATION.IO  (EX- 
TRACT.MODE.TYPE): 

use  OUT.FLOAT.IO,  INTEGER  JO,  ENUMERATION.IO; 
use  FEATURE.LIST,  EX.ENUMERATION.IO; 

FEATURE.HEAD,  FEATURE.TAIL :  FEATURE.LIST.LIST, 


-  [procedure.header.comment] 

procedure  TRANSLATE  (RLE.NAME :  in  VAR.STRING; 
INPUT.CHANNEL :  in  INPUT.CHANNEL.TYPE); 

-  [procedure.header.comment] 
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procedure  MAKE_SPEECH_LIST  (FILE_NAME :  in  VAR_STRING); 

-  [procedure_header_comment] 

procedure  EXTRACT  (EXTRACTION_MODE  :  in  EXTRACT_MODE_TYPE); 

-  [procedure_header_conunent] 
procedure  REVIEW.EXTRACTION; 

-  [procedure_header_comment] 

procedure  CREATE_EXTRACTION_FEATURE_LIST; 

■  [procedure_header_comment] 

procedure  EXTRACTION_CONTROL_PANEL; 

-  [procedure_header_comment] 

procedure  SET_EXTRACTION_MODE  (EXTRACTION_MODE :  in  EXTRACT_MODE_TYPE); 
end  EXTRACTION_PACKAGE; 
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package  body  EXTRACTION.PACKAGE  is 
-  [package_body_header_coinment] 


MEAN,  STAN_DEV ;  FLOAT; 

NUMBER ;  INTEGER  :=  256; 

COEFnCIENT :  FLOAT  :=  2.0; 

package  FEATURES  is  new  FEATURE_PACKAGE  (NUMBER  =>  NUMBER,  M  =>  20); 
use  FEATURES; 


FEATURE_POINTER  :  FEATURE_LIST.LIST  :=  FEATURE_HEAD; 
AVERAGE_ARRAY :  FEATURE_ARRAY_TYPE(L.50); 

AVERAGE_POINTER :  INTEGER  RANGE  L.nLTER  ;=  1; 

function  MOVING.AVERAGE  (NEW_DATUM  :  in  FLOAT)  return  FLOAT  is 

-  [funclion_header_comment] 

SUM ;  FLOAT  :=  0.0; 

begin 

AVERAGE_ARRAY(AVERAGE_POINTER)  :=  NEW_DATUM; 
for  INDEX  in  1.. FILTER  loop 
SUM  :=  SUM  +  AVERAGE_ARRAY(INDEX); 
end  loop; 

if  AVERAGE_POINTER  =  HLTER  then 
AVERAGE_POINTER  :=  1; 
else 

AVERAGE_POINTER  :=  AVERAGE.POINTER  +  1; 
end  if; 

return  SUM  /  FLOAT(FILTER); 
end  MOVING.AVERAGE; 

procedure  TRANSLATE  (FILE_NAME :  in  VAR_STRING; 

TNPl  rr_CHANNEL :  in  INPUT_CHANNEL_TYPE)  is 

-  [procedure_header_coniinentl 
LAST :  FLOAT  :=  0.0; 

FULL_FILE_NAME ;  VAR_STR1NG; 

begin 

-  CONQUER  RLE 

SPEECH_LIST.CLEAR_LIST(SPEECH_HEAD,SPEECH_TAIL); 

ASSIGN(EXTENSION,”.SND’); 

if  INPUT.CHANNEL  =  LOCAL  then 

FULL_FILE_NAME  :=  DIRECTORY.NAME&HLE.NAME&EXTENSION; 

else 
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FULL_FILE_NAME  :=  DATABASE&nLE_NAME&  EXTENSION; 
end  if; 

IN2JNTEGERJO.OPEN  ( 

HLE  =>  INPUT_FILE, 

MODE  =>  IN2_INTEGER_IO.IN_nLE, 

NAME  =>  STRING_VALUE(FULL_nLE_NAME)); 

ASSIGN(EXTENSION,”.DlG”); 

FULL_nLE_NAME  ;=  DIRECTORY_NAME&nLE_NAME&EXTENSION; 

CREATE  ( 

FILE  =>  OUTPUT.HLE, 

MODE  =>  OUT_FILE, 

NAME  =>  FULL_nLE_NAME); 

IN2_INTEGER_IO.READ  (RLE  =>  INPUT.HLE,  ITEM  =>  VARIABLE(1..256)); 

LOOP 

IN2_INTEGER_IO.READ(FILE  =>  INPUT_FILE.  ITEM  =>  VARIABLE(1..256)); 
for  INDEX  in  1..256  loop 

OUTPUT_VARIABLE  :=  FLOAT(VARIABLEaNDEX)); 

PUT  (RLE  =>  OUTPUT_RLE,  ITEM  =>  OUTPUT_VARIABLE, 

FORE  =>6. 

AFT=>2, 

EXP=>0); 

NEW_LINE  (RLE  =>  OUTPUT.FILE.  SPACING  =>  1); 

SPEECH_LIST.ADD_TO(OUTPUT_VARIABLE,SPEECH_HEAD,SPEECH_TAIL); 

end  loop; 
end  loop; 
exception 

when  END_ERROR  => 

IN2_lNTEGERJO.CLOSE  (RLE  =>  INPUT_F1LE); 

CLOSE  (RLE  =>  OUTPUT_RLE); 
end  TRANSLATE; 

procedure  SET_EXTRACTION_MODE  (EXTRACTION_MODE  :  in  EXTRACT_MODE_TYPE)  is 

-  [procedure_header_comment] 

begin 

EXTRACT_MODE  :=  EXTRACTION.MODE; 
end  SET_EXTRACTION_MODE; 


procedure  MAKE_SPEECH_LIST  (FILE_NAME ;  in  VAR_STRING)is 
-  [procedure_header_comment] 

FULL_RLE_NAME :  VAR_STRING; 

SPEECH_DATUM :  FLOAT, 

INPUT.RLE :  TEXTJO.RLE.TYPE; 
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begin 

SPEECH_LIST.CLEAR_LIST(SPEECH_HEAD.SPEECH_TAIL); 

ASSIGN(EXTENSION”.DIG”); 

FULL_nLE_NAME  :=  DlRECTORY_NAME&FILE_NAME&EXTENSION; 
OPEN( 

FILE=>  INPUT.FILE, 

MODE  =>  IN.HLE, 

NAME  =>  FULL_nLE_NAME); 
loop 

GET  (HLE  =>  INPUT_FILE.  ITEM  =>  SPEECH.DATUM); 
SPEECH_LIST.ADD_TO(SPEECH_DATUM,SPEECH_HEAD,SPEECH_TAIL); 
end  loop; 
exception 

when  END_ERROR  => 

CLOSE  (FILE  =>  INPUT.FILE); 
end  MAKE_SPEECH_LIST; 


procedure  CREATE_EXTRACTION_FEATURE_LIST  is 
-  [procedure_header_comment] 

type  FEATURE_TYPES  is  array  ( 1 ..  16)  of  FLOAT; 

DISTANCE.FACTOR :  INTEGER; 

SPECTRUM.  SPECTRUM_TEST ;  FEATURE_ARRAY_TYPE(L.16); 

THRESHOLD,  DISTANCE,  NORMALIZE  :  FLOAT  :=  0.0; 

ZC_AVE_ARRAY,  RAW_SPEECH  :  FEATURE_ARRAY_TYPE(L. NUMBER); 
SPEECH_POINTER  ;  SPEECH_LIST.LIST  :=  SPEECH_HEAD; 

function  EUCLIDIAN_DISTANCE  (VECTORl.  VECTOR2  :  in  FEATURE_ARRAY_TYPE)  return 
FLOAT  is 

-  [function_header_commcntl 

SUM  :  FLOAT  ;=  0.0; 
begin 

for  INDEX  in  L.16kx7p 

SUM  :=  SUM  +  (VECTORl (INDEX)  -  VECTOR2(lNDEX))**2; 
end  loop; 

return  SQRT(SUM); 
end  EUCLIDIAN.DISTANCE; 

function  nND_MEAN  (DATAS  ;  in  FEATURE_ARRAY_TYPE)  return  FLOAT  is 

-  [function_heiKler_comment] 
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SUM ;  FLOAT  ;=  0.0; 
begin 

for  INDEX  in  1.. NUMBER  loop 
SUM  :=  SUM  +  ABS(DATAS(INDEX)); 
end  loop; 

return  SUM/FLOAT(NUMBER); 
end  F1ND_MEAN; 


function  nND_STAN_DEV  (DATAS  ;  in  FEATURE_ARRAY_TYPE)  return  FLOAT  is 
-  [function_header_comment] 

SUM  :  FLOAT  :=  0.0; 
begin 

for  INDEX  in  1.. NUMBER  loop 
SUM  :=  SUM  +  (ABS(DATAS(1NDEX))  -  MEAN)**2; 
end  loop; 

return  SQRT(SUM/FLOAT(NUMBER)); 
end  F1ND_STAN_DEV; 
begin 

FEATURE_L1ST.CLEAR_LIST(FEATURE_HEAD,FEATURE_TAIL); 
for  INDEX  in  1.. NUMBER  loop 

RAW_SPEECH(INDEX)  :=  SPEECH_LIST.GET_NODE(SPEECH_POINTER); 
SPEECH.POINTER  :=  SPEECH_LIST.NEXT_L1NK(SPEECH_P01NTER); 
end  loop; 

MEAN  :=  FIND_MEAN(RAW_SPEECH); 

STAN.DEV  :=  FIND_STAN_DEV(RAW_SPEECH); 
FEATURES.POWER_SPECTRUM(RAW_SPEECH,SPECTRUM_TEST); 
ADD_TO(O.FEATURE_HEAD,FEATURE_TA1L); 
forlNDEXl  in  1..9laip 
for  INDEX  in  1.. NUMBER  loop 

RAW_SPEECH(INDEX)  :=  SPEECH_LIST.GET_N0DE(SPEECH_P01NTER); 
SPEECH.POINTER  ;=  SPEECH_LlST.NEXT_LINK(SPEECH_POINTER); 
end  loop; 

FE.^TURES.POWER_SPECTRUM(RAW_SPEECH,SPECTRUM); 

ADD_TO(0,FEATURE_HEAD,FEATURE_TA1L); 

DISTANCE  ;=  DISTANCE  +  EUCLIDIAN_DISTANCE(SPECTRUM,SPECTRUM_TEST); 
end  kxip; 

THRESHOLD  ;=  DISTANCE  /  9.0; 
loop 

for  INDEX  in  1.. NUMBER  loop 

RAW_SPEECH(INDEX)  :=  SPEECH_LIST.GET_NODE(SPEECH_POINTER); 
SPEECH_POINTER  :=  SPEECH_LIST.NEXT_LINK(SPEECH_POINTER); 
end  kxip; 
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FEATURES.POWER_SPECTRUM(RAW_SPEECH.SPECTRUM); 

DISTANCE  :=  EUCLIDIAN_DISTANCE(SPECTRUM,SPECTRUM_TEST); 
DISTANCE.FACTOR  ;=  INTEGER(DISTANCE/THRESHOLD); 
if  DISTANCE_FACTOR  >  9  then 
DISTANCE_FACTOR  ;=  9; 
end  if; 

ADD_TO(DISTANCE_FACTOR.FEATURE_HEAD,FEATURE_TAIL); 
end  locp; 
exception 

when  SPEECH_LIST.UNDER_FLOW  => 

FEATURE.POINTER  :=  FEATLrRE_HEAD; 
end  CREATE_EXTRACTION_FEATURE_LIST; 

procedure  DISPLAY_FEATURE_LIS  f  (NUMBER_OF_LINES  :  in  INTEGER  :=  -1)  is 
-  [procedure_header_comnient] 

POINTER  :  FEATURE_LIST.LIST  :=  FEATURE_POINTER; 

LINES,  VALUE,  COUNTER  :  INTEGER  :=  1; 
begin 

for  INDEX  in  1..80  loop 
PUT  (ITEM  =>  INDEX  /  10,  WIDTH  =>  I); 
end  loop; 

NEW.LINE; 

for  INDEX  in  1.. 80  loop 

PUT  (ITEM  =>  INDEX  MOD  10,  WIDTH  =>  I); 
end  loop; 

NEW_LINE; 

PUT_L(X)P;  loop 
ifCOUNTER  =  81  then 
NEW_L1NE; 

COUNTER  ;=  1; 

LINES  ;=  LINES  +  1; 
end  if; 

exit  PUT  .LOOP  when  NUMBER_OF_LlNES  +  I  =  LINES; 

VALUE  :=  GET_NODE(POINTER); 

PUT  (ITEM  =>  VALUE.  WIDTH  =>  1); 

COUNTER  :=  COUNTER  +  1; 

K)INTER  :=  NEXT_LINK(POINTER); 
end  loop  PUT.LOOP; 
exception 

when  FEATURE_LIST.UNDER_FLOW  => 

NEW.LINE; 

end  DISPLAY_FEATURE_LIST; 
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procedure  ADVANCE_POINTER  (POINTER :  in  out  SPEECH_LIST.LIST;  NUMBER  :  in  INTEGER) 


-  [procedure_header_comment] 
begin 

for  INDEX  in  1.. NUMBER  loop 
POINTER  :=  SPEECH_LIST.NEXT_LINK(P01NTER); 
end  locp; 

end  ADVANCE_POINTER; 

procedure  EXTRACT  (EXTRACTION_MODE  :  in  EXTRACT_MODE_TYPE)  is 

-  [procedure_header_coniment] 

FULL_nLE_NAME :  VAR.STRING; 

SPEECH_POINTER  :  SPEECH_LIST.LIST  :=  SPEECH_HEAD; 

FEATURE_POINTER  :  FEATURE_LIST.LIST  ;=  FEATURE.HEAD; 
UNKNOWN_WORD_COUNT,  END_COUNTER.  START_COUNTER  :  INTEGER  :=  0; 
TEMP,  FEATURE_DATUM  :  INTEGER; 

SPEECH_DATUM ;  FLOAT, 

WORD_IN_PROGRESS  :  BOOLEAN  ;=  FALSE; 

UNKNOWN.HLE :  STRING(L.15); 

W0RD_P01NTER  ;  DATABASE_LIST.LIST  :=  DATABASE_HEAD; 


begin 

loop 

FEATURE_DATUM  ;=  GET_NODE(FEATURE_POINTER); 

FEATURE.POINTER  :=  NEXT_LINK(FEATURE_POINTER); 

if  FEATURE_DATUM  >  2  then 
START_COUNTER  :=  1; 

START_WORD;  loop 

FEATURE_DATUM  :=  GET_NODE(FEATURE_POINTER); 

FEATURE_POINTER  :=  NEXT_LINK(FEATURE_P01NTER); 
exit  START_WORD  when  FEATURE_DATUM  <  3; 

START_COUNTER  :=  START_COUNTER  +  1; 
end  loop  START_WORD; 
if  START_COUNTER  >=  START_COUNT  then 

WORD_IN_PROGRESS  :=  TRUE; 

EX_WORD:  loop 
END_COUNTER  :=  1; 

UNDER_WORD:  loop 

FEATURE_DATUM  :=  GET_NODE(FEATURE_POINTER); 

FEATURE_POINTER  :=  NEXT_LINK(FEATURE_POINTER); 
exit  UNDER_WORD  when  FEATURE_DATUM  >  2  OR  END.COUNTER  =  END_COUNT; 


END_COUNTER  ;=  END_COUNTER  +  1; 
end  loq)  UNDER_WORD; 

if  END_COUNTER  =  END_COUNT  then 
if  EXTRACTION_MODE  =  NORMAL  then 

TEXT_IO.PUT_LlNE  (ITEM  =>  “WORD  HAS  BEEN  FOUND,  TYPE  IN  HLE  NAME,  LESS  EX¬ 
TENSION”); 

STRING_OPERATIONS.GET_LINE(nLE); 

elsif  EXTRACTION.MODE  =  AUTO_DATAB  ASE  then 
NEXT_W0RD(nLE,W0RD_P01NTER); 
else 

UNXNOWN_WORD_COUNT:=  UNKNOWN_WORD_COUNT -i-  1; 

UNKNOWN_nLE(1..13)  :=  “UNKNOWN_WORD_”; 

if  UNKNOWN_WORD_COUNT  <  10  then 
UNKNOWN_nLE(14)  :=  CHARACTER’ VAL(UNKNOWN_WORD_COUNT+48); 

ASSIGN  (FILE,UNKNOWN_nLE(  1 ..  1 4)); 
else 

TEMP  ;=  UNKNOWN_WORD_COUNT/10; 
for  INDEX  in  0..1  loop 

UNKNOWN_nLE(14+INDEX)  :=  CHARACTER’VAL(TEMP+48); 

TEMP  ;=  UNKNOWN_WORD_COUNT  MOD  10; 
end  loop; 

ASSIGN(nLE,UNKNOWN_nLE(  1 ..  1 4)); 
end  if; 
end  if; 

FULL_FILE_NAME  ;=  DIRECT0RY_NAME&PRERX&F1LE&”.DIG”; 
STRING_OPERATIONS.CREATE  ( 

HLE  =>  OUTPUT_FILE, 

MODE  =>  OUT_FILE, 

NAME  =>  FULL  .RLE.NAME); 
for  INDEX  in  l..NUMBER*(START_COUNTER)  loop 
SPEECH.DATUM  :=  SPEECH_LIST.GET_NODE(SPEECH_POINTER); 

PUT  (HLE  =>  OUTPUT_nLE,  ITEM  =>  SPEECH.DATUM, 

FORE=>  6, 

AFT=>2, 

EXP=>0); 

TEXTJO.NEW_LINE  (HLE  =>  OUTPUT.HLE,  SPACING  =>  1); 

SPEECH_POINTER  ;=  SPEECH_LIST.NEXT_LINK(SPEECH_POINTER); 
end  loop; 

CLOSE  (HLE  =>  OUTPUT.HLE); 

for  INDEX  in  l..END_COUNT  loop 
ADVANCE_P0INTER(SPEECH_P01NTER.NUMBER); 
end  loop; 
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WORD_lN_PROGRESS  :=  FALSE; 
else 

START_COUNTER  :=  START_COUNTER  +  END_COUNTER  +  1; 

WORD:  loq) 

FEATURE.DATUM  :=  GET_NODE(FEATURE_POINTER): 

FEATURE_POINTER  :=  NEXT_LINK(FEATURE_P01NTER); 

exit  WORD  when  FEATURE_DATUM  <  3; 

START_COUNTER  :=  START_COUNTER  +  1; 
end  loop  WORD; 
end  if; 

exit  EX_WORD  when  WORD_lN_PROGRESS  =  FALSE; 
end  loop  EX_WORD; 
else 

for  INDEX  in  l..START_COUNTER+l  loop 
ADVANCE_POINTER(SPEECH_POINTER,NUMBER); 
end  loop; 
end  if; 
else 

ADVANCE_POINTER(SPEECH_POINTER,NUMBER); 
end  if; 
end  loop; 
exception 

when  DATABASE_L1ST.UNDER_FL0W  => 

TEXT_IO.PUT_LINE  (ITEM  =>  “THE  DATABASE  LIST  HAS  RUN  OUT  OF  WORDS”); 
when  FEATURE_LIST.UNDER_FLOW  => 
if  WORD_IN_PROGRESS  then 

TEXT_IO.PUT_LINE  (ITEM  =>  “THE  LAST  WORD  WAS  NOT  FULLY  EXTRACTED,  RERE¬ 
CORD  IT”); 

end  if; 

end  EXTRACT; 


procedure  MANUAL_EXTRACTlON  is 
-  [procedure_header_comment] 
subtype  CHOICE_TYPE  is  INTEGER  range  1  ..9; 

A\  ERAGE :  FLOAT; 

ZC_COUNT :  INTEGER; 

FILE,  FILE_NAME :  VAR.STRING; 

OUTPUT_FILE ;  FILE_TYPE; 

OUT.PUT :  BOOLEAN; 

CHOICE :  CHOICE_TYPE; 

SKIP.NUM,  SKIP_COUNT,  NUM_COUNT,  VALUE :  INTEGER; 
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ZC_THRESHOLD,  THRESHOLD,  SPEECH.DATUM :  FLOAT; 

BACK_SPEECH_POINTER,  SPEECH_POINTER :  SPEECH_LIST.LIST  :=  SPEECH_HEAD; 
BACK_FEATURE_POINTER  :  FEATURE.LIST.LIST  :=  FEATURE_POINTER; 


package  TEMP_LIST  is  new  LINKED_LIST  (ITEM_TYPE  =>  FLOAT); 
package  CHOICEJNTEGERJO  is  new  TEXTJO.INTEGERJO  (CHOICE_TYPE); 
use  CH0ICE_INTEGER_10,TEMP_LIST; 

TEMP_HEAD,  TEMP.TAIL :  TEMP_LIST.LISP, 

begin 

REVIEW_LOOP:  loop 
begin 

NEW_LINE(2); 

DISPLAY_FEATURE_LIST(3); 

NEW_LINE(2); 

PUT_LINE  (ITEM  =>  “  1  -  TO  DISPLAY  THE  WHOLE  FILE”): 

PUT_LINE  (ITEM  =>  “  2  -  TO  DELETE  A  SECTION”); 

PUT_LINE  (ITEM  =>  “  3  -  TO  WRITE  A  SECTION  TO  A  FILE  WITH  TRIMMING”); 

PUT_LINE  (ITEM  =>  “  4  -  TO  WRITE  A  SECTION  TO  A  RLE  WITHOUT  TRIMMING”); 

PUT.LINE  (ITEM  =>  “  5  -  TO  UNDO  LAST  WRITE”); 

PUT_LINE  (ITEM  =>  “  6  -  TO  CHANGE  COEFHCIENT  VALUE”); 

PUT.LINE  (ITEM  ->  “  7  -  TO  CHANGE  THE  RLTER  SIZE”); 

PUT.LINE  GTEM  =>  “  8  -  TO  GOTO  BEGINNING  OF  LIST’); 

PUT_LINF  (ITEM  =>  ‘  9  -  TO  EXIT”); 

N£W_LIN  E; 

PUT(“  CHOICE ->“); 

CHOICE_INTEGER_IO.GET  (ITEM  =>  CHOICE); 

GET.LINE  GTEM  =>  DUMMY); 
case  CHOICE  is 
when  1  => 

DISPLAY_FEATURE_LIST; 
when  2  => 

PUT  (ITEM  =>  “NUMBER  OF  TIME  SLICES:  “); 
INTEGER_IO.GET(NUM_COUNT); 

GET_LINE(DUMMY); 

for  INDEX  in  l..NUM_COUNT  loop 
FEATURE.POINTER  :=  NEXT_LINK(FEATURE_POINTER); 
ADVANCE_POINTER(SPEECH_POINTERNUMBER); 
end  loop; 
when  3  «> 
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BACK_SPEECH_POINTER  :=  SPEECH_POINTER; 
BACK_FEATURE_POINTER  :=  FEATURE_POINTER; 

PUT_LINE  (ITEM  =>  “NAME  OF  HLE,  LESS  EXTENSION”); 
GET_LINE  GTEM  =>  FILE); 

PUT  GTEM  =>  “NUMBER  OF  TIME  SLICES:  “); 
INTEGER_IO.GET(NUM_COUNT); 

GET_LINEG5UMMY); 

HLE.NAME  :=  DIRECTORY_NAME&PREFIX&FILE&”.DIG”; 
CREATE ( 

FILE  =>  OUTPUT.HLE. 

MODE=>OUT_FILE, 

NAME  =>  FILE_NAME); 


AVERAGE, ARRAY  :=  (OTHERS  =>  0.0); 

AVERAGE.POINTER  :=  1; 

THRESHOLD  :=  MEAN  +  COEFFICIENT*STAN_DEV; 

OUT_PUT  :=  FALSE; 

SKIP_COUNT;=  1; 

SKIP.NUM  :=  0; 

SKIP_LOOP;  loop 

exit  SKIP_LOOP  when  OUT  PUT  or  SKIP.COUNT  >  NUM_COUNT  or  SKIP.NUM 

1024; 

forlNDEXl  in  1..NUMBER  loop 

SPEECH_DATUM  :=  SPEECH_LIST.GET_NODE(SPEECH_POINTER); 

SPEECH_POINTER  :=  SPEECH_LIST.NEXT_LINK(SPEECH_POINTER); 

AVERAGE  :=  MOVING_AVERAGE(ABS(SPEECH_DATUM)); 
if  AVERAGE  >  THRESHOLD  OR  OUT_PUT  then 
OUT_PUT  :=  TRUE; 

ADD_TO_REVERSE(SPEECH_DATUM.TEMP_HEAD.TEMP_TAIL); 

else 

SKIP.NUM  :=  SKIP.NUM  +  1; 
end  if; 
end  loop; 

FEATURE_POINTER  :=  NEXT_LINK(FEATURE_POINTER); 

SKIP_COUNT  :=  SKIP_COUNT  +  1; 
end  loop  SKIP_LOOP; 

PUT  (ITEM  =>  “NUMBER  OF  POINTS  DELETED  IS  “); 

INTEGER_IOJ>UT  (ITEM  =>  SKIP.NUM,  WIDTH  =>  4); 

NEW_LINE; 

for  INDEX  in  SKIP_COUNT..NUM_COUNT  loop 
for  INDEX  1  in  1.. NUMBER  loop 

SPEECH.DATUM  :=  SPEECH_LIST.GET_NODE(SPEECH_POIh'TER); 
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SPEECH_POINTER  :=  SPEECH_LIST.NEXT_LINK(SPEECH_POINTER); 
ADD_TO_REVERSE(SPEECH_DATUM,TEMP_HEAD,TEMP_TAIL); 
end  loop; 

FEATURE.POINTER  ;=  NEXT_LINK(FEATURE_POINTER); 
end  loop; 


AVERAGE.ARRAY  :=  (OTHERS  =>  0.0); 

AVERAGE.POINTER  :=  1; 

SKIP_NUM  :=  0; 

TAIL_SHAVING:  loop 

REMOVE_NEXT_NODE(SPEECH_DATUM,TEMP_HEAD,TEMP_TAIL); 
AVERAGE  :=  MOVING.  AVERAGE(ABS(SPEECH_DATUM)); 

exit  TAIL.SHAVING  when  AVERAGE  >  THRESHOLD  OR  SKIP.NUM  =  1024; 
SKIP.NUM  :=  SKIP.NUM  +  1; 

end  loopTAlL.SHAVING; 

PUT  (ITEM  =>  “NUMBER  OF  POINTS  DELETED  IS  “); 

INTEGERJO.PUT  (ITEM  =>  SKIP.NUM,  WIDTH  =>  4); 

NEW.LINE; 

REVERSE_LIST(TEMP_HEAD.TEf  .TAIL); 
begin 

OUTPUT:  loop 

REMOVE_NEXT_NODE(SPEECH_DATUM,TEMP.HEAD,TEMP_TAIL); 

PUT  (FILE  =>  OUTPUT.FILE,  ITEM  =>  SPEECH.DATUM, 

FORE=>8, 

AFT=>2, 

EXP  =>  0); 

NEW.LINE  (RLE  =>  OUTPUT.HLE,  SPACING  =>  1); 
end  loq)  OUTPUT; 
exception 

when  TEMP.LIST.UNDER.FLOW  => 

CLOSE  (RLE  =>  OUTPUT.nLE); 
end; 

when  4  => 


BACK.SPEEC^'.POINTER  :=  SPEECH.POINTER; 
BACK.FEATURE.POINTER  :=  FEATURE.POINTER; 

PUT.LINE  (ITEM  =>  “NAME  OF  RLE,  LESS  EXTENSION”); 
GET.LINE  OTEM  =>  RLE); 

PUT  (ITEM  =>  “NUMBER  OF  TIME  SLICES:  “); 
INTEGER_IO.GET(NUM.COUNT); 

GET.LINE(DUMMY); 

RLE.NAME  :=  DIRECTORY.NAME&PREFIX&RLE&”.DIG”; 
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CREATE  ( 

FILE  =>  OUTPUT_nLE, 
MODE=>  OUT_FILE, 
NAME  =>  HLE.NAME); 


for  INDEX  in  l..NUM_COUNT  loop 
for  INDEX  1  in  1  ..NUMBER  loop 

SPEECH_DATUM  :=  SPEECH_LIST.GET_NODE(SPEECH_POINTER); 
SPEECH_POINTER  :=  SPEECH_LIST.NEXT_LINK(SPEECH_POINTER); 
PUT  (FILE  =>  OUTPUT.FILE,  ITEM  =>  SPEECH_DATUM, 

FORE=>8, 

AFT=>2, 

EXP=>0); 

NEW_LINE  (FILE  =>  OUTPUT, FILE,  SPACING  =>  I); 
end  loop; 

FEATURE_POINTER  :=  NEXT_LINK(FEATURE_POINTER); 
end  loop; 

CLOSE  (FILE  =>  OUTPUT.HLE); 
when  5  => 

SPEECH.POINTER  :=  BACK_SPEECH_POINTER; 

FEATURE.POINTER  :=  BACK_FEATURE_POINTER; 
when  6  => 

PUT  (ITEM  =>  “NEW  VALUE:  “); 

GET(COEFnCIENT); 

GET_LINE(DUMMY); 
when  7  => 

PUT  OTEM  =>  “NEW  VALUE:  “); 

INTEGER_10.GET(FILTER); 

GET_LINE(DUMMY); 
when  8  => 

FEATURE.POINTER  :=  FEATURE_HEAD; 

SPEECH.POINTER  :=  SPEECH.HEAD; 
when  9  => 

exit  REVIEW.LOOP; 
end  case; 
exception 

when  DATA.ERROR  => 

PUT.LINE  (ITEM  ->  “WATCH  IT  PAL”); 

end; 

end  loop  REVIEW.LOOP; 
end  MANUAL.EXTRACTION; 
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procedure  REVIEW  EXTRACTION  is 
-  [procedure_header_comment] 
subtype  CHOICE_TYPE  is  INTEGER  range  1  ..9; 

CHOICE :  CHOICE_TYPE; 

package  CHOICE_INTEGER_IO  is  new  TEXTJO.INTEGERJO  (CHOICE_TYPE); 
package  FLOATJO  is  new  TEXTJO.FLOATJO  (FLOAT); 
use  CHOICE_INTEGER_IO,  FLOATJO; 
begin 

REVIEW_LOOP:  loop 
begin 

NEW_LINE(2); 

PUT  (ITEM  =>  “  1  -  THE  BEGINNING  WORD  COUNT  IS  “); 

INTEGER JO.PUT  (ITEM  =>  START_COUNT,  WIDTH  =>  6); 

NEW.LINE; 

PUT  (ITEM  =>  “  2  -  THE  END  WORD  COUNT  IS  “); 

INTEGER  JO.PUT  (ITEM  =>  END_COUNT,  WIDTH  =>  6); 

NEW_LINE; 

PUT  (ITEM  =>  “  3  -  THE  SPEECH  WINDOW  SIZE  IS  “); 

INTEGER JO.PUT  (ITEM  =>  NUMBER,  WIDTH  =>  4); 

NEW.LINE; 

PUT  (ITEM  =>  “  4  -  NETWORK  LOCATION  IS  “); 

PUT  (ITEM  =>  DATABASE); 

NEW.LINE; 

PUT  (ITEM  =>  “  5  -  WORDS  PREFIX  IS  “); 

PUT  (ITEM  =>  PREFIX); 

NEW_LINE; 

PUT  (ITEM  =>  “  6  -  THE  EXTRACTION  MODE  IS  “); 

PUT  (ITEM  =>  EXTRACT_MODE); 

NEW.LINE; 

PUT  (ITEM  =>  “  7  -  THE  EXTRACTION  COEFFICIENT  IS  “); 
FLOAT_IO.PUT(ITEM  =>  COEFFICIENT. 

FORE  =>  2, 

AFT=>2. 

EXP=>  0); 

NEW.LINE; 

PUT  (ITEM  =>  “  8  -  THE  MOVING  AVERAGE  RLTER  SIZE  IS  “); 

INTEGER_IO.PUT  (ITEM  =>  HETER.  WIDTH  =>  2); 

NEW.LINE; 

PUT_LINE  (ITEM  =>  “  9  -  TO  QUIT  REVIEW”); 

NEW.LINE  (2); 

PUT  (ITEM  =>“  NUMBER  OF  SETTING  TO  CHANGE ->“); 

CHOICE JNTEGERJO.GET  (ITEM  =>  CHOICE); 
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GET_LINE  GTEM  =>  DUMMY); 
case  CHOICE  is 
when  1  => 

PUT  (ITEM  =>  “NEW  VALUE:  “); 

INTEGER_IO.GET(START_COUNT); 

GET_LINE(DUMMY); 
when  2  => 

PUT  (ITEM  =>  “NEW  VALUE:  “); 

INTEGER_IO.GET(END_COUNT); 

GET_LINE(DUMMY); 
when  3  => 

PUT  (ITEM  =>  “NEW  VALUE:  “); 

INTEGER_IO.GET(NUMBER); 

GET_LINE(DUMMY); 
when  4  => 

PUT.LINE  (ITEM  =>  “NEW  VALUE:  “); 

GET_LINE(DATABASE); 
when  5  => 

PUT_LINE  (ITEM  =>  “NEW  VALUE:  “); 

GET_LINE(PREFIX); 
when  6  => 

PUT.LINE  (ITEM  =>  "NEW  VALUE:  “); 

GET  (ITEM  =>  EXTRACT_MODE); 

GET_LINE(DUMMY); 
when  7  => 

PUT  (ITEM  =>  “NEW  VALUE:  “); 

FL0AT_10.GET(C0EFnCIENT); 

GET_LINE(DUMMY); 
when  8  => 

PUT  (ITEM  =>  “NEW  VALUE:  “); 

INTEGERJO.GETORLTER); 

GET_L1NE(DUMMY); 
when  9  => 

exit  REVIEW_LOOP; 
end  case; 
exception 

when  DATA_ERROR  => 

PUT.LINE  (ITEM  =>  “WATCH  IT  PAL”); 

end; 

end  loop  REVIEW_LOOP; 
end  REVIEW_EXTRACTION; 
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procedure  EXTRACTION_CONTROL_PANEL  is 
type  CHOICEJNTEGER  is  range  1..12; 

CHOICE :  CHOICE_INT£GER; 

package  CHOICE_INTEGER_IO  is  new  TEXT_I0.1NTEGER_I0  (CHOICE_INTEGER); 
use  CHOICE_INTEGER_IO; 
begin 

ASSIGN(DATABASE,”CALVIN::DUAO;[TOMR]”); 

MAIN:  loop 
begin 

NEW_LINE  (2); 

PUT_LINE  (ITEM  =>  “  1  -  INPUT  HLE  NAME  FOR  EXTRACTION”); 

PUT.LINE  OTEM  =>  “  2  -  SET  PRERX  FOR  EXTRACTED  WORDS”); 

PUT.LINE  (ITEM  =>  “  3  -  SET  INPUT  CHANNEL  LOCAL  OR  NETWORK  (NETWORK)"); 

PUT.LINE  (ITEM  =>  “  4  -  REVIEW  CURRENT  SETTINGS  FOR  EXTRACTION”); 

PUT.LINE  (ITEM  =>  “  5  -  CREATE  LIST  OF  SPEECH  RLE”); 

PUT_LINE  (ITEM  =>  “  6  -  TRANSLATE  FILE  INTO  STANDARD  FORMAT”); 

PUT.LINE  (ITEM  =>  “  7  -  CREATE  EXTRACTION  FEATURE  LIST”); 

PUT_LINE  (ITEM  =>  “  8  -  DISPLAY  FEATURE  LIST’); 

PUT.LINE  GTEM  =>  “  9  -  EXTRACT  WORDS  OUT  OF  HLE”); 

PUT_LINE  (ITEM  =>  “  10  -  MAUNALLY  EXTRACT  WORDS  OUT  OF  FILE”); 

PUT.LINE  OTEM  =>  “  1 1  -  RUN  FULL  EXTRACTION  PROCESS”); 

PUT_LINE  (ITEM  =>  “  1 2  -  QUIT  EXTRACTION  OPERATIONS”); 

NEW_LINE; 

PUT  (“  CHOICE  ->  ”); 

GET  (ITEM  =>  CHOICE); 

GET.LINE  (ITEM  =>  DUMMY); 
case  CHOICE  is 
when  1  => 

PUT_LINE  (ITEM  =>  “TYPE  NAME  OF  INPUT  FILE  NAME,  LESS  EXTENSION”); 
GET.LINE  (FILE_NAME); 
when  2  => 

PUT.LINE  OTEM  =>  “TYPE  NAME  OF  WORD  PRERX”); 

GET_LINE(PREFIX); 
when  3  => 

PUT  (ITEM  =>  “THE  CURRENT  INPUT  CHANNEL  IS  “); 

PUT  (ITEM  =>  INPUT_CHANNEL); 

NEW_LINE; 

PUT  (ITEM  =>  “NEW  INPUT  CHANNEL  IS  “); 

GET  (ITEM  =>  WUT.CHANNEL); 
when  4  *> 

REVIEW.EXTRACnON; 
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when  5  => 


MAKE_SPEECH_LIST  (FILE_NAME); 
when  6  => 

TRANSLATE  (nLE_NAME,INPUT_CHANNEL); 
when  7  => 

CREATE_EXTRACTION_FEATURE_LIST; 
when  8  => 

DISPLAY_FEATURE_LIST; 
when  9  =■> 

EXTRACT  (EXTRACT_MODE); 
when  10=> 

MANUAL_EXTRACTION; 
when  1 1  => 

TRANSLATE  (nLE_NAME,INPUT_CHANNEL); 
CREATE_EXTRACT10N_FEATURE_LIST; 

EXTRACT  (EXTRACT.MODE); 

when  12  => 
exit  MAIN; 
end  case; 
exception 

when  DATA_ERROR  => 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “PLEASE,  PLEASE,  PLEASE  WATCH  WHAT  YOUR  TYPING, 
SHEEEEEECH”); 

end; 

end  loop  MAIN; 

end  EXTRACTION_CONTROL_PANEL; 
end  EXTRACTION_PACKAGE; 


176 


-  [source_file_header_comment] 

with  FLOAT_MATH_LIB,  TEXTJO,  LINKED_LIST,  DATABASE_PACKAGE,  STRING.OPERA- 
TIONS; 

use  FLOAT_MATH..LIB,  TEXTJO.  DATABASE_PACKAGE,  STRING_OPERATIONS; 
generic 

NUMBER  :  in  INTEGER  :=  512; 

M  :  INTEGER  ;=  20; 
package  FEATURE_PACKAGE  is 

-  [package_specification_header_comment] 

type  FEATURE_ARRAY_TYPE  is  array  (INTEGER  range  o)  of  FLOAT; 
type  FEATURE_MODE_TYPE  is  (SINGLE,  BATCH); 

package  FLOAT_IO  is  new  TEXT_IO.FLOAT_IO  (FLOAT); 

-  [prcx:edure_header_coninientl 

procedure  POWER_SPECTRUM  (DATA :  in  FEATURE_ARRAY_TYPE; 

SPECTRUM  :  OUT  FEATURE_ARRAY_TYPE); 

-  |procedure_header_comment] 

procedure  CREATE_ALL_FEATURE  (the.HLE  :  in  VAR_STR1NG); 

-  [prcx'edure_header_commentl 

procedure  DO_FEATURE  (PROCESSING.MODE :  in  FEATURE_MODE_TYPE  ); 

-  f pr(.x:edureJieadcr_coninient] 
procedure  FEATURE_CONTROL_PANEL; 

end  FEATURE_PACKAGE; 
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-  [source_file_header_comment] 
package  body  FEATURE_PACKAGE  is 

-  [package_body_header_comment] 

PRERX :  VAR_STRING; 

function  (LEFT,  RIGHT :  in  FEATURE. ARRAY_TYPE)  return  FEATURE_ARRAY_TYPE  is 
-  [function_header_comment] 

RESULTS :  FEATURE_ARRAY_TYPE(LEFT’RANGE); 
begin 

for  INDEX  in  LEFT’RANGE  loop 
RESULTSaNDEX)  ;=  LEFT(INDEX)-RIGHT(INDEX): 
end  loop; 
return  RESULTS; 
end 

function  SUMMER  (DATA :  in  FEATURE. ARRAY.TYPE; 

FROM,  TO :  in  INTEGER;  return  FLOAT  is 


SUM  ;  FLOAT  ;=  0.0; 
begin 

for  INDEX  in  FROM..TO  loop 
SUM  ;=  SUM  +  DATA(INDEX); 
end  loop; 
return  SUM; 
end  SUMMER; 

function  MEL_256  (INTERMEDIATE  :  in  FEATURE.ARRAY  TYPE)  return  FEA¬ 
TURE.  ARRAY.TYPE  is 

-  [function.header.comment] 

SPECTRUM;  FEATURE. ARRAY.TYPE(I..I6); 

begin 

SPECTRUM(l)  ;=  10.0*LOG10(SUMMER(INTERMEDIATE,I,4)); 
SPECTRUM(2)  :=  I0.0+LOG10(SUMMERaNTERMEDIATE,5,10)); 
SPECTRUM(3)  :=  10.0*LOG10(SUMMERaNTERMEDIATE,ll,16)); 
SPECTRUM(4)  ;=  I0.0*LOG10(SUMMER(INTERMEDIATE,17,23)); 
SPECTRUM(5)  :=  10.0*LOG10(SUMMERaNTERMEDIATE,24,3I)); 
SPECTRUM(6)  :=  I0.0+LC)GI0(SUMMERaNTERMEDIATE,32,40)); 
SPECTRUM(7)  ;=  IO.O*LOGIO(SUMMERaNTERMEDIATE,41,5I)); 
SPECTRUM(8)  ;=  10.0* LOG  10(SUMMERaNTERMEDIATE,52,63)); 
SPECTRUM(9)  :=  IO.O*LOGIO(SUMMERaNTERMEDIATE,64.78)); 
SPECTRUM(IO)  :=  IO.O*LOGIO(SUMMER(INTERMEDIATE,79,94)); 
SPECTRUM(ll)  :=  10.0*LOGI0(SUMMER(INTERMEDIATE,95,lI2)); 
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SPECTRUM(12)  :=  10.0*LOG10(SUMMER(INTERMEDIATE,1 13,134)); 
SPECTRUM(13)  :=  10.0*LOG10(SUMMER(INTERMEDIATE,135,158)); 
SPECTRUM(14)  ;=  IO.O*LOG10(SUMMER(INTERMED1ATE,159,186)); 
SPECTRUM(15)  ;=  10.0*LOG10(SUMMER(INTERMEDIATE, 187,219)); 
SPECTRUM(16)  :=  10.0*LOG10(SUMMER(INTERMEDIATE,220,256)); 
return  SPECTRUM; 
end  MEL_256; 

function  MEL_128  (INTERMEDIATE  :  in  FEATURE_ARRAY_TYPE)  return  FEA- 
TURE_ARRAY_TYPE  is 

-  [function_header_comment] 

SPECTRUM:  FEATURE_ARRAY_TYPE(1..16); 

begin 

SPECTRUM(l)  :=  10.0+LOG10(SUMMER(INTERMEDIATE,1,2)); 
SPECTRUM(2)  :=  10.0+LC)G10(SUMMER(INTERMEDIATE,3,5)); 
SPECTRUM(3)  :=  10.0*  LOG  10(SUMMER(INTERMEDIATE,6,8)); 
SPECTRUM(4)  ;=  10.0*LOG10(SUMMER(INTERMEDIATE,9,1 1)); 
SPECTRUM(5)  :=  10.0*LOG10(SUMMERaNTERMEDIATE,12,15)); 
SPECTRUM(6)  :=  10.0*LOG10(SUMMERaNTERMEDIATE,16,20)); 
SPECTRUM(7)  ;=  10.0*LOG10(SUMMERaNTERMEDIATE,21,25)); 
SPECTRUM(8)  ;=  10.0* LOG  10(SUMMERaNTERMEDIATE,26,32)); 
SPECTRUM(9)  ;=  10.0*LOG10(SUMMERaNTERMEDIATE,33,39)); 
SPECTRUM(IO)  ;=  10.0*LOG10(SUMMER(INTERMEDIATE,40,47)); 
SPECTRUM(ll)  :=  10.0*LOG10(SUMMER(INTERMEDIATE,48,56)); 
SPECTRUM(12)  :=  10.0*LOG10(SUMMER(INTERMEDIATE,57,67)); 
SPECTRUM(13)  :=  10.0*LOG10(SUMMER(INTERMEDIATE,68,79)); 
SPECTRUM(14)  ;=  10.0*LOG10(SUMMER(INTERMED1ATE,88,93)); 
SPECTRUM(15)  :=  10.0*LOG10(SUMMER(INTERMEDIATE,94,109)); 
SPECTRUM(16)  ;=  10.0*LOG10(SUMMER(INTERMEDIATE,1 10,128)); 


return  SPECTRUM; 
endMEL_128; 


function  MEL_DIGITAL_FILTER  (N ;  in  INTEGER; 

LINEAR_FREQS  :  in  FEATURE_ARRAY_TYPE; 

ALPHA :  in  FLOAT )  return  FEATURE_ARRAY_TYPE  is 
-  [function_header_comment] 

TEMPI,  TEMP,  NEW_FREQS  ;  FEATURE_ARRAY_TYPE(L1NEAR_FREQS’RANGE); 
NEW_A,  SMALL ;  FLOAT  :=  O.lE-20; 

-  N  :  INTEGER  :=  LINEAR_FREQS’LAST; 
begin 

TEMP(N)  :=  LINEAR_FREQS(N); 
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for  I  in  reverse  0..N-1  loop 

TEMP(I)  :=  LINEAR_FREQS(I)  +  (ALPHA  ♦  TEMP(I+1)); 
if  ABS(TEMP(I))  <  SMALL  then 
TEMP(I)  :=  0.0; 
end  if; 
end  loop; 

NEW_FREQS(0)  ;=  LINEAR_FREQS(0)  +  (ALPHA  ♦  TEMP(l)); 

TEMPl(N)  :=  0.0; 

for  I  in  reverse  0..N-1  loop 

TEMPl(I)  ;=  TEMP(I+1)  +  (ALPHA  *  TEMP1(I+1)); 
if  ABS(TEMPia))  <  SMALL  then 
TEMP(I)  ;=  0.0; 
end  if; 
end  loop; 

NEW_FREQS(1)  :=  TEMP(l)  +  (ALPHA  *  TEMPl(l)); 
fo"  K  in  2..N  loop 
if  K  MOD  2  =  1  then 
TEMPI  (N)  :=  0.0; 
for  I  in  reverse  0..N-1  loop 

TEMPKD  :=  TEMPa+1)  +  (ALPHA  *  (TEMP1(I+1)  -  TEMP(I))); 
if  ABS(TEMP1(1))  <  SMALL  then 
TEMPKD  :=0.0; 
end  if; 
end  loop; 

NW_FREQS(K)  :=  TEMP(l)  +  (ALPHA  ♦  (TEMPl(l)  -  NEW_FREQS(K-1))); 
else 

TEMP(N)  :=  0.0; 

for  I  in  reverse  0..N-1  loop 

TEMP(D  :=  TEMP  10+1)  +  (ALPHA  *  (TEMP(I+1)  -  TEMP  1(D)); 
if  ABS(TEMP(D)  <  SMALL  then 
TEMP(D  ;=  0.0; 
end  if; 
end  loop; 

NEW_FREQS(K)  :=  TEMPI (1)  +  (ALPHA  *  (TEMP(l)  -  NEW_FREQS(K-1))); 

end  if; 
end  loop; 

NEW_A  :=  1 .0  -  ALPHA**2; 
for  I  in  1..N  loop 

NEW_FREQS(D  :=  NEW_FREQS(D  *  NEW_A; 
end  loop; 

1  ctum  NEW_FREQS; 
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end  MEL_DIGITAL_FILTER; 


functicM  MEL_nLTER  (FREQUENCY_ARRAY  :  in  FEATURE_ARRAY_TYPE)  return  FEA- 
TURE_ARRAY_TYPE  is 

-  [function_header_comment] 

HLTERS :  FEATURE_ARRAY_TYPE(1..M); 

WEIGHT,  THIS.FREQ,  LOW_FREQ,  MID_FREQ,  HI_FREQ,  SUM,  BIN_SIZE,  MEL.MAX, 
MEL_BIN ;  FLOAT; 

function  MEL_SCALE  (MEL_BIN :  in  FLOAT  )  return  FLOAT  is 
-  [function_header_comment] 

BIN  :  FLOAT; 
begin 

BIN  :=  (10.0**(MEL_BIN*LOGI0(2.0yi000.0)-L0)*1000.0; 
return  BIN; 
end  MEL_SCALE; 


begin 

BIN_SIZE  ;=  80(X).0/FLOAT(NUMBER/2); 

MEL_MAX  :=  1(X)0.0/LOG(2.0)*LOG(9.0); 

MEL.BIN  ;=  MEL_MAX/FLOAT(M); 
for  INDEX  in  1..M  loop 

LOW.FREQ  :=  MEL_SCALE(MEL_BIN*FLOAT(INDEX-l)); 

MID.FREQ  ;=  MEL_SCALE(MEL_BIN*FLOAT(INDEX)); 

HI.FREQ  :=  MEL_SCALE(MEL_BIN*FLOAT(INDEX+l)); 

SUM  :=  0.0; 

forlNDEXl  in  I..NUMBER/2  loop 
THIS_FREQ  :=  BIN_SIZE*FLOAT(INDEXI); 

if  THIS_FREQ  >  LOW_FREQ  AND  THIS_FREQ  <  HI_FREQ  then 
if  THIS_FREQ  <  MID_FREQ  then 

WEIGHT  :=  (THIS_FREQ-LOW_FREQ)/(MID_FREQ-LOW_FREQ); 
else 

WEIGHT  :=  I.O  -  (THIS_FREQ-MID_FREQ)/(H1_FREQ-MID_FREQ); 
end  if; 

SUM  :=  SUM  +  WEIGHT*FREQUENCY_ARRAY(INDEXI); 
end  if; 
end  loop; 

nLTERS(lNDEX)  :=  LOGIO(SUM); 
end  loop; 
return  FILTERS' 
end  MEL_FILTER; 
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funcuon  DBPEROCTIVE  (VALUE  :  in  FLOAT;  INDEX  :  in  INTEGER)  return  FLOAT  is 

-  [function_header_comment] 

DUMMY,  RESULT :  FLOAT; 

begin 

DUMMY  ;=  80(X).0/(FLOAT(NUMBER)/2.0)*FLOAT(INDEX); 
if  DUMMY  >  600.0  then 
RESULT  ;=  VALUE  *  DUMMY/600.0; 
else 

RESULT  :=  VALUE; 
end  if; 

return  RESULT; 
end  DBPEROCTIVE; 

procedure  LP_COEFnCIENTS  (DATA :  in  FEATURE_ARRAY_TYPE; 

PM  :  in  out  FLOAT; 

LP_nLTER_COEFnCIENTS  :  in  out  FEATURE_ARRAY_TYPE)  is 

-  [function_header_comment] 

WKl,  WK2  :  FEATURE_ARRAY_TYPE(1.. NUMBER), 

RESULTS,  WKM ;  FEATURE_ARRAY_TYPE(I..M); 

PJ’NEUM,  DENOM :  FLOAT; 
begin 
P  :=  0.0; 

for  jin  1.. NUMBER  loop 
P  :=  P+DATA(J)**2; 
end  loop; 

PM  :=  P/FLOAT(NUMBER); 

WK1(1):=  DATA(l); 

WK2(NUMBER-1 )  :=  DATA(NUMBER); 
forJin2..NUMBER-I  loop 
WKl(J)  :=  DATA(J); 

WK2(J-1)  :=  DATA(J); 
end  loop; 
for  K  in  1  ..M  loop 
PNEUM  :=  0.0; 

DENOM  :=  0.0; 
for  J  in  1  ..NUMBER-K  loop 
PNEUM  :=  PNEUM+WK1(J)*WK2(J); 

DENOM  :=  DENOM+WKl(J)**2+WK2(J)**2; 
end  loop; 

LP_nLTER_COEFFICIENTS(K)  :=  2.0*PNEUM/DENOM; 

PM  ;=  PM*(1.0-LP_FILTER_COEFnCffiNTS(K)**2); 

if  K  /=  1  then 
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for  I  in  1..K-1  loop 

LP_nLTER_COEFnCIENTS(I)  :=  WKM(I)-LP_nLTER_COEFnCrENTS(K)*WKM(K-I); 
end  loop; 
end  if; 

ifK/=Mlhen 
for  I  in  1  ..K  loop 

WKM(I)  ;=  LP_FILTER_COEFFICIENTS(I); 
end  loq); 

for  J  in  1..NUMBER-K-1  loop 
WKl(J)  :=  WK1(J)-WKM(K)*WK2(J); 

WK2(J)  ;=  WK2(J+1)-WKM(K)*WK1(J+1); 
end  loop; 

end  if; 
end  loop; 

end  LP_COEFFICIENTS; 

function  LPC_POWER_SPECTRUM  (LP_nLTER_COEFFICIENTS  :  in  FEATURE_ARRAY_TYPE; 
FDT,  PM  :  in  FLOAT)  return  FLOAT  is 

-  [function_header_comment] 

WR,  WI.  WTEMP,  SUMR,  SUMI :  FLOAT; 

THETA ;  FLOAT  :=  6.2831 85307 17959*FDT; 

WPR  :  FLOAT  :=  COS(THETA); 

WPI :  FLOAT  ;=  SIN(THETA); 
begin 

WR  :=  1.0; 

WI  ;=  0.0; 

SUMR  :=  1.0; 

SUMI  ;=  0.0; 
for  I  in  1  ..M  loop 
WTEMP  ;=  WR; 

WR  ;=  WR*WPR-WI*WPI; 

WI  :=  WI+WPR+WTEMP*WPI; 

SUMR  ;=  SUMR-LP_nLTER_COEFnCIENTSa)*WR; 

SUMI  :=  SUMI-LP_nLTER_COEFnCfENTSa)*Wl; 
end  loop; 

return  PM/(SUMR**2+SUMI**2); 
end  LPC_POWER_SPECTRUM; 

procedure  POWER.SPECTRUM  (DATA :  in  FEATURE_ARRAY_TYPE; 

SPECTKLivI :  OUT  FEATURE_ARRAY_TYPE)  is 

-  [function_header_comment] 


183 


LP_nLTER_COEFnCIENTS  :  FEATURE_ARRAY_TYPE(1.. NUMBER); 
LPC.INTERMEDIATE :  FEATURE_ARRAY_TYPE(l..NUMBER/2); 
LOG.ENERGY  :  FEATURE_ARRAY_TYPE(1..M); 

GAIN,  SUM,  DUMMY,  N2,  FDT :  FLOAT; 


begin 


LP_COEFFICIENTS(DATA,GAIN,LP_nLTER_COEFnCIENTS); 

N2  ;=  FLOAT(NUMBER/2)*2.0; 

for  INDEX  in  O..NLT^ER'2-l  loop 

DUMMY  :=  LPC_POWER_SPECTRUM  (LP_FnTER_COEFFI- 
CIENTS,FLOAT(INDEX)/N2,GAIN); 

LPC_INTERMEDIATE(INDEX+1)  :=  DBPER0CTIVE(DUMMY,INDEX+1); 
end  loop; 


-  GENERATE  MELED  SPECTRUM 

if  NUMBER  =  512  then 

SPECTRUM(1..16)  :=  MEL_256(LPC_INTERMEDIATE); 
elsif  NUMBER  =  256  then 

SPECTRUM(1..16)  :=  MEL_128(LPC_INTERMEDIATE); 
end  if; 


end  POWER_SPECTRUM; 

procedure  LP_SPECTRUM  (LP_nLTER_COEFnCIENTS  :  in  FEATURE. ARRAY_TYPE; 
SPECTRUM,  CEPSTRUM,  MEL.CEPSTRUM :  OUT  FEATURE_ARRAY_TYPE; 
LP.CEPSTRUM  :  in  out  FEATURE_ARRAY_TYPE; 

GAIN  :  in  FLOAT)  is 
-  [function_header_comment] 


LPC.INTERMEDIATE ;  FEATURE_ARRAY_TYPE(1.. NUMBER/2); 
LOG.ENERGY  :  FEATURE_ARRAY_TYPE(I..M); 

SUM,  DUMMY,  N2,  FDT :  FLOAT; 


begin 

N2  :=  FLOAT(NUMBER/2)*2.0; 

for  INDEX  in  0..NUMBER/2-1  loop 

DUMMY  ;=  LPC_POWER_SPECTRUM  (LP_FILTER_COEFFI- 
CIENTSJT-OAT(INDEX)/N2,GAIN); 

LPC_INTERMEDIATE(INDEX+1)  :=  DBPEROCTIVE(DUMMY,INDEX+l); 
end  loop; 
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-  GENERATE  MELED  SPECTRUM 

SPECTRUM(1..16)  :=  MEL_256(LPC_INTERMEDIATE); 

-  GENERATE  LF  CEPSTRUM  COEERICENTS 

for  INDEX  in  1..M  loop 
SUM  :=  0.0; 

fcT  K  in  1  ..NUMBER/2  loop 

SUM  :=  SUM  +  LOG10(LPC_INTERMEDI- 
ATE(K))*COS(3. 1 415*FLOAT(INDEX*K)/FLOAT(NUMBER)); 

end  loop; 

CEPSTRUM(INDEX)  :=  SUM; 
end  loop; 

-  GENERATE  LP  CEPSTRUM  COEEHICENTS 

for  INDEX  in  1  ..M  loop 
SUM  ;=  0.0; 

for  K  in  1.. INDEX- 1  loop 

SUM  ;»  SUM  +  LP_nLTER_COEFFlCIENTS(K)*LP  CEPSTRUM(INDEX-K)*FLOAT((K- 
INDEXyiNDEX); 

end  loop; 

LP_CEPSTRUM(INDEX)  ;=  LP_nLTER_COEFF!CIENTS(INDEX)-l-  SUM; 
end  loop; 

-  GENERATE  MEL  CEPSTRUM  COEFFICIENTS 

LOG.ENERGY  :=  MEL_nLTER(LPC_INTERMEDIATE); 
for  INDEX  in  I..M  loop 
SUM  ;=0.0; 
for  K  in  1..M  loop 

SUM  :=  SUM  +  L0G_ENERGY(K)*C0S(FL0AT(INDEX)*(FL0AT(K)- 
O.5)*3.1415/FLOAT(M)); 

end  loop; 

MEL_CEPSTRUM(INDEX)  :=  SUM; 
end  loop; 

end  LP_SPECTRUM; 

procedure  nLE_ONLINE  (FILE  ;  in  VAR_STRING)  is 
-  [procedure_header_commentl 
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DATUM :  FLOAT; 
nLE_NAME :  VAR_STRING: 

INPUT_nLE :  HLE.TYPE; 

package  FLOATJO  is  new  TEXT_IO.FLOATJO  (FLOAT); 
use  FLOATJO; 
begin 

SPEECH_LIST.CLEAR_LIST(SPEECH_HEAD,SPEECH_TAIL); 
nLE_NAME  :=  DIRECTORY_NAME&FILE&”.DIG”; 

OPEN( 

HLE  =>  INPUT.HLE, 

MODE  =>  IN_nLE, 

NAME  =>  HLE.NAME); 
loop 

GET  (FILE  =>  INPUT_nLE,  ITEM  =>  DATUM); 
SPEECH_LIST.ADD_T0(DATUM,SPEECH_HEAD,SPEECH_TA1L); 
end  loop; 
exception 

when  END_ERROR  => 

CLOSE  (FILE  =>  INPUT_nLE); 
end  HLE.ONLINE; 

procedure  CREATE_ALL_FEATURE  (THE_FILE  :  in  VAR_STRING)  is 
-  (procedure_header_comroenl] 

type  FEATURE_TYPES  is  array  (0..M+ 1 )  of  FLOAT; 
type  OUTPUT_nLES_TYPE  is  array  (L.8)  of  FILE_TYPE; 
type  NAMES  is  array  (1..8)  of  VAR_STRING; 

LP_nLTER_COEFnCIENTS  :  FEATURE_ARRAY_TYPE(O..M+I); 

DELTA_BL_CEPSTRUM,  BL.CEPSTRUM,  DELTA_MEL_CEPSTRUM,  DELTA_SPECTRUM, 
SPECTRUM ;  FEATURE_ARRAY_TYPE(O..M+I); 

DELTA_CLPSTRUM,  LP_CEPSTRUM.  MEL_CEPSTRUM.  CEPSTRUM  :  FEA¬ 
TURE,  ARRAY_TYPE(O..M+  1 ); 

TWO_B ACKI .  TWO_B ACK2,  TWO_BACK3,  TWO_B ACK4 :  FEA¬ 
TURE,  ARRAY_TYPE(O..M-t-  1 ); 

ONE_BACKI,  ONE_BACK2,  ONE_BACK3,  ONE_BACK4  :  FEATURE_ARRAY_TYPE(O..M+I); 
REFLECTION  ;  FEATURE_ARRAY_TYPE(O..M+I)  ;=  (OTHERS  =>  0.0); 

NORMALIZE :  FEATURE_ARRAY_TYPE(I..8)  :=  (OTHERS  =>  0.0); 

RAW_SPEECH  :  FEATURE_ARRAY_TYPE( I. .NUMBER); 

OUTPUT_nLES ;  OUTPUT_FILES_TYPE; 


GAIN,  WARP :  FLOAT; 

HLE.NAMES  :  NAMES; 

M_COMPONENTS.COUNTER  :  INTEGER  :=  0; 

PASS  :  INTEGER  :=  1; 

SPEECH.POINTER :  SPEECH_LIST.LIST; 

package  FEATURE_LIST  is  new  LINKED_LIST  (ITEM_TYPE  =>  FEATURE_TYPES); 
package  INTEGERJO  is  new  TEXT_IO.INTEGERJO  (INTEGER); 
package  FLOATJO  is  new  TEXTJO.FLOATJO  (FLOAT); 
use  FLOAT.IO,  INTEGER_IO,  FEATURE_LIST; 

FEATURE_HEAD,  FEATURE_TAIL  ;  FEATURE_LIST.LIST; 

function  NORMAL  (FROM,  TO  :  in  INTEGER; 

FEATURE_ VARIABLE  :  in  FEATURE_ARRAY_TYPE)  return  FLOAT  is 
-  [function_header_commeni] 

NORM  :  FLOAT  ;=  0.0; 
begin 

fa-  INDEX  in  FROM..TO  loop 

NORM  :=  NORM  +  FEATLrRE_VARIABLE(INDEX)**2; 
end  loop; 
return  NORM; 
end  NORMAL; 


begin 

nLE_ONLINE(THE_FILE); 

SPEECH_POINTER  ;=  SPEECH.HEAD; 
CLEAR_LIST(FEATURE_HEAD,FEATURE_TAIL); 
M_COMPONENTS  ;=  16; 

nLE_NAMES(l)  :=  DIRECTORY_NAME&THE_nLE&”.LPPS”; 
nLE_NAMES(2)  :=  DIRECTORY_NAME&THE_nLE&”.DPPS”; 
nLE_NAMES(3)  :=  DIRECTORY_NAME&THE_FILE&”.LFCC”; 
FILE_NAMES(4)  ;=  DIRECTORY_NAME&THE_nLE&”.DFCC”; 
nLE_NAMES(5)  :=  DIRECTORY_NAME&THE_nLE&”.MFMC”; 
FILE_NAMES(6)  :=  DIRECTORY_NAME&THE_FILE&”.DFMC”; 
nLE_NAMES(7)  :=  DIRECTORY_NAME&THE_nLE&”.BLMC”; 
nLE_NAMES(8)  ;=  DlRECTORY_NAME&THE_FILE&”.DLMC”; 
for  INDEX  in  I. .8  loq) 

CREATE ( 

FILE  =>  OLTPUT_nLES(INDEX), 

MODE  =>  OUT_FILE, 

NAME  =>  FILE_NAMES(INDEX)); 
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end  loop; 


la)p 

for  INDEX  in  1.. NUMBER  la)p 
COUNTER  :=  INDEX; 

RAW_SPEECH(INDEX)  :=  SPEECH_LIST.GET_NODE(SPEECH_POINTER); 
SPEECH_POINTER  :=  SPEECH_LIST.NEXT_LINK(SPEECH_P01NTER); 
end  loop; 

LP_COEFFlCIENTS(RAW_SPEECH.GAIN.CP_FILTER_COEFFICIENrS); 

LP_SPECTRUM(LP_nLTER_COEFnCIENTS.SPECTRUM.CEPSTRUM,MEL_CEP- 

STRUM,LP_CEPSTRUM,GAIN); 

BL_CEPSTRUM(0..M-1)  :=  CEPSTRUM(1..M); 

BL_CEPSTRUM  ;=  MEL_DlGITAL_nLTER(M-l.BL_CEPSTRUM,0.6); 
BL_CEPSTRUM(1..M)  :=  BL_CEPSTRUM(0..M-1); 

NORMALIZE(l)  :=  NORMALIZEfl  +  NORMAL(1.16,SPECTRUM); 
ADD_TO(FEATURE_'nTES(SPECTRUM),FEATURE_HEAD,FEATURE_TAIL); 
NORMALIZE(3)  :=  NORMALIZE(3)  +  NORMAL(l.M_COMPONENTS,CEPSTRUM); 
ADD_TO(FEATURE_TYPES(CEPSTRUM),FEATURE_HEAD,FEATURE_TAIL); 
NORMALIZE(5)  ;=  NORMALIZE(5)  +  NORMAL(l,M_COMPONENTS,MEL_CEPSTRUM); 
ADD_TO(FEATURE_TYPES(MEL_CEPSTRUM).FEATURE_HEAD,FEATURE_TAIL); 
NORMALIZE(7)  :=  NORMALIZE(7)  +  NORMAL(l.M_COMPONENTS.BL_CEPSTRUM); 
ADD_TO(FEi*.TURE_TYPES(BL_CEPSTRUM),FEATURE_HEAD,FEATURE_TAlL); 
if  PASS  =  1  then 
PASS  :=PASS+  1; 

TWO.BACKl  :=  MEL_CEPSTRUM; 

TWO_BACK2  :=  SPECTRUM; 

TWO_BACK3  :=  CEPSTRUM; 

TWO_BACK4  :=  BL_CEPSTRUM; 
elsif  PASS  =  2  then 
PASS  ;=PASS+  1; 

ONE_BACKl  :=  MEL_CEPSTRUM; 

ONE_BACK2  :=  SPECTRUM; 

ONE_BACK3  :=  CEPSTRUM; 

ONE_BACK4  ;=  BL_CEPSTRUM; 

ADD_TO(FEATURE_TYPES(REFLECTION).FEATURE_HEAD.FEATURE_TA1L); 

ADD_T0(FEATURE_TYPES(REFLECTI0N),FEATURE_HEAD,FEATURE_TAIL); 

ADD_TO(FEATURE_TYPES(REFLECTION).FEATURE_HEAD,FEATURE_TAIL); 

ADD_TO(FEATURE_TYPES(REFLECTION).FEATURE_HEAD,FEATURE_TAIL); 

else 

PASS  :=  PASS  +  1; 

DELTA_MEL_CEPSTRUM  MEL_CEPSTRUM-TWO_BACKl; 

TWO_BACKl  :=ONE_BACKl; 
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0NE_BACK1  ;=  MEL_CEPSTRUM; 

DELTA_SPECTRUM ^:r>ECTRUM-TWO_BACK2; 

TW0_BACK2  :=  ONE_BACK2; 

0NE_BACK2  ;=  SPECTRUM; 

DELTA_CEPSTRUM  :=  CEPSTRUM-TWO_BACK3; 

TW0_BACK3  ;=  ONE_BACK3; 

0NE_BACK3  ;=  CEPSTRUM; 

DELTA_BL_CEPSTRUM  ;=  BL_CEPSTRUM-TWO_BACK4; 

TW0_BACK4  :=  ONE_BACK4; 

ONE_BACK4  :=  BL_CEPSTRUM; 

NORMALIZE(2)  :=  NORMALIZE(2)  +  NORMAL(1.16.DELTA_SPECTRUM); 

ADD_TO(FEATURE_TYPES(DELTA_SPECTRUM),FEATURE_HEAD,FEATURE_TAIL); 

NORMALIZE(4)  :=  NORMALIZE(  ■)  +  NORMAL(l.M_COMPONENTS,DELTA_CEPSTRUM); 

ADD_TO(FEaTURE_TYPES(DELTA_CEPSTRUM).FEATURE_HEAD,FEATURE_TAIL); 

N()RMALIZE(6)  :=  N0RMALIZE(6)  +  NORMAL(l,M_COMPONENTS.DELTA_MEL_CEP- 
STRUM); 

ADD_T0(FEATURE_TYPES(DELTA_MEL_CEPSTRUM),FEATURE_HF.AD,FEATURE_TAIL); 

NORMAL[ZE(8)  :=  NORMALIZE(8)  +  NORMAL(l.M_COMPONENTS,DELTA_BL_CEP- 
STRUM); 

ADD_TO(FEATURE_TYPES(DELTA_DL_CEPSTRUM).FEATURE_HEAD,FEATURE_TAIL); 

end  if; 
end  loop; 
exception 

when  SPEECH_LIST.UNDER_FLOW  => 
if  COUNTER /=  1  then 
for  INDEX  in  COUNTER.. NUMBER  loop 
RAW_SPEECH(INDEX>  .=  0.0; 
end  kx)p; 

LP_COEFFlCIENTS(RAW_SPEECH.GAIN,LP_nLTER_COEFFICIENTS); 

LP_SPECTRUM(LP_nLTER_COEFnClENTS,SPECTRUM.CEPSTRUM.MEL_CEP- 

STRUM,LP_CEPSTRUM,GAIN); 

BL_CEPSTRUM(0..M-1)  ;=  CEPSTRUM(1..M); 

BL.CEPSTRUM  :=  MEL_DIGITAL_nLTER(M-l.BL_CEPSTRUM.0.6); 

BL_CEPSTRUM(1..M)  :=  BL_CEPSTRUM(0..M-1); 

NORMALIZE(l)  :=  NORMALIZE(l)  +  NORMAL(l,16.SPECTRUM); 

ADD_TO(FEATURE_TYPES(SPECTRUM).FEATURE_HEAD.FEATURE_TAIL); 

NORMALIZE(3)  ;=  NORMALrZE(3)  +  NORMAL(l,M_COMPONENTS, CEPSTRUM); 

ADD_TO(FEATURE_TYPES(CEPSTRUM),FEATURE_HEADJ^ATURE_TAIL); 

NORMALIZE(5)  :=  NORMALIZE(5)  +  NORMAL(l,M_COMPONENTS.MEL_CEPSTRUM); 

ADD_TO(FEATURE_TYPES(MEL_CEPSTRUM),FEATURE_HEAD.FEATURE_TAIL); 

NORMALIZE(7)  ;=  NORMALlZE(7)  +  NORMALfI  ,M_COMPONENTS,BL_CEPSTRUM); 

ADD_TO(FEATURE_TYPES(BI._.CEPSTRUM)JEATURE_HEAD,FEATURE_TAIL); 

DELTA_MEL_CEPSTRUM  :=  MEL_CEPSTRUM-TWO_BACKl; 
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DELTA.SPECTRUM  :=  SPECTRUM-TW0_BACK2; 

DELTA.CEPSTRUM  :=  CEPSTRUM-TWO_BACK3; 

DELTA_BL_CEPSTRUM  :=  BL_CEPSTRUM-WO_BACK4; 

NORMALIZE(2)  :=  NORMALIZE(2)  +  NORMAL(l,16,DELTA_SPECTRlJM); 

ADD_TO(FEATURE_TYPES(DELTA_SPECTRUM),FEATURE_HEAD,FEATURE_TAIL); 

N0RIv'IALIZE(4)  ;=  NORMALIZE(4)  +  NORK4AL(l,M_COMPONENTS,DELTA_CEPSTRUM); 

ADD.TO(FEATURE_TYPES(DELTA_CEPSTRUM),FEATURE_HEAD,FEATURE_TAIL); 

NORMALIZE(6)  ;=  NORMALIZE(6)  +  NORMAL(l.M_COMPONENTS,DELTA_MEL_CEP- 
STRUM); 

ADD_TO(FEATURE_TYPES(DELTA_MEL_CEPSTRUM),FEATURE_HEAD,FEATURE_TAIL); 

NORMALIZE(8)  :=  NORMALIZE(8)  +  NORMAL(l,M_COMPONENTS,DELTA_BL_CEP- 
STRUM); 

ADD_TO(FEATURE_TYPES(DELTA_BL_CEPSTRUM).FEATURE_HEAD,FEATURE_TAIL); 

else 

PASS  :=  PASS  -  1 ; 
end  if; 

ADD_TO(FEATURE_TYPES(REFLECTION),FEATURE_HEAD,FEATURE_TAIL); 
ADD_TO(FEATURE_TYPES(REFLECTION),FEATURE_HEAD,FEATURE_TAIL); 
ADD_TO(FEATURE_TYPES(REFLECTION).FEATURE_HEAD,FEATURE_TAIL); 
ADD_TO(FEATURE_TYPES(REFLECTION),FEATURE_HEAD,FEATURE_TAIL); 
for  INDEX  in  1  ..8  loop 

NORMALIZE(INDEX)  ;=  SQRT(N0RMALIZE(1NDEX)); 
end  loop: 

for  INDEX  in  1..PASS  loop 
if  INDEX  =  I  then 

REMOVE_NEXT_NODE(FEATURE_TYPES(SPECTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  1..  16  loop 

PUT  (FILE  =>  OUTPUT_nLES(l),  ITEM  =>  SPECTRUM(INDEX)/NORMALIZE(l), 

FORE  =>  2, 

AFT  =>  8, 

EXP  =>  0); 

NEW_LINE  (RLE  =>  OUTPUT_nLES(l),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(CEPSTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  l..M_COMPONENTS  loop 

PUT  (RLE  =>  OUTPUT_FILES(3),  ITEM  =>  CEPSTRUM(INDEX)/NORMALIZE(3), 

FORE  =>  2. 

AFT=>8, 

EXP=>  0); 

NEW.LINE  (HLE  =>  OUTPUT_FILES(3),  SPACING  =>  1); 
end  loop: 
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REMOVE_NEXT_NODE(FF,ATURE_TYPES(MEL_CEPSTRUM),FEATURE_HEADJEA- 

TURE_TAIL); 

for  INDEX  in  1  ..M.COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(5),  ITEM  =>  MEL_CEPSTRUMaNDEX)/NORMALIZE(5), 
FORE  =>  2, 

AFT=>8, 

EXP  =>  0); 

NEW_LINE  (HLE  =>  OUTPUT_FILES(5),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(BL_CEPSTRUM)J^ATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  1  ..M_COMPONENTS  loop 

PUT  (RLE  =>  OUTPUT_nLES(7),  ITEM  =>  BL_CEPSTRUM(INDEX)/NORMALIZE(7), 
FORE=>2, 

AFT=>8, 

EXP  =>  0); 

NEW_LINE  (FILE  =>  OUTPUT_nLES(7),  SPACING  =>  1); 
end  loop; 

elsif  INDEX  in  2..PASS-1  then 

REMOVE_NEXT_NODE(FEATURE_TYPES(SPECTRUM)J^ATURE_HEAD,FEA- 

TURE.TAIL); 

for  INDEX  in  1..  16  loop 

PUT  (HLE  ■=>  OUTPUT_nLES(l).  ITEM  =>  SPECTRUM(INDEX)/NORMALIZE(l), 
FORE=>  2, 

AFT=>8, 

EXP  =>  0); 

NEW_LINE  (RLE  =>  OUTPUT_FILES(l),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(CEPSTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  L.M.COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(3),  ITEM  =>  CEPSTRUM(INDEX)/NORMALIZE(3), 

FORE  =>  2, 

AFT=>8, 

EXP  =>  0); 

NEW_LINE  (RLE  =>  OUTPUT_RLES(3).  SPACING  =>  I); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(MEL_CEPSTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  1  ..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(5),  ITEM  =>  MEL_CEPSTRUMaNDEX)/NORMALIZE(5), 
FORE=>  2, 

AFT=>8, 

EXP=>0); 
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NEW_LINE  (FILE  =>  0UTPUT_FILES(5),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(BL_CEPSTRUM),FEATURE_HEADJ^A- 

TURE_TAIL); 

for  INDEX  in  1  ..M_COMPONENTS  loop 

PUT  (HLE  =>  OUTPUT_FILES(7).  ITEM  =>  BL_CEPSTRUM(INDEX)/NORMALIZE(7), 
FORE=>  2. 

AFT=>8, 

EXP=>  0); 

NEW.LINE  (FILE  =>  OUTPUT_FILES(7),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_SPECTRUM).FEATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  1 ..  1 6  locp 

PUT  (FILE  =>  OUTPUT_FILES(2),  ITEM  =>  DELTA_SPECTRUM(INDEX)/NORMALIZE(2), 
FORE  =>  2, 

AFT=>8, 

EXP  =>  0); 

NEW_LINE  (FILE  =>  OUTPUT_FILES(2).  SPACING  =>  1); 
end  loop; 

REMOVE.NEXT  NODE(FEATURE  TYPES(DELTA_CEPSTRUM).FEATURE_HEAD,FEA- 
TURE_TAIL); 

for  INDEX  in  1  ..M.COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(4),  ITEM  =>  DELTA_CEPSTRUM(INDEXyNORMALIZE(4), 
FORE=>  2. 

AFT=>8, 

EXP  =>  0); 

NEW_LINE  (FILE  =>  OUTPUT_FILES(4).  SPACING  =>  1 ); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_MEL_CEPSTRUM).FEA- 

TURE_HEADJ^ATURE_TAIL); 

for  INDEX  in  L.M.COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(6),  ITEM  =>  DELTA_MEL_CEPSTRUM(INDEX)/NORMAL- 
IZE(6), 

FORE=>2, 

AFT=>8, 

EXP=>0); 

NEW_LINE  (FILE  =>  OUTPUT_nLES(6),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_BL_CEPSTRUM)4TEA- 

TURE_HEADJFEATURE_TAIL); 

for  INDEX  in  1  ..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(8),  ITEM  =>  DELTA_BL_CEPSTRUMaNDEX)/NORMALIZE(8), 
FORE=>2, 
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AFT=>8, 

EXP=>0); 

NEW_LINE  (FE.E  =>  OUTPUT_FILES(8),  SPACING  =>  1); 

end  loq); 
else 

REMOVE_NEXT_NODE(FEATURE_TYPES(SPECTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  1..16  locp 

PUT  (FILE  =>  OUTPUT_FILES(l),  ITEM  =>  SPECTRUM(INDEX)/NORMALIZE(l), 

FORE  =>  2, 

AFT=>8, 

EXP=>0); 

NEW_LINE  (HLE  =>  OUTPUT_FILES(l),  SPACING  =>  1); 
end  loq); 

REMOVE_NEXT_NODE(FEATURE_TYPES(CEPSTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  l..M_COMPONENTS  loop 

PUT  (RLE  =>  OUTPUT_FILES(3),  ITEM  =>  CEPSTRUM(INDEX)/NORMALIZE(3), 

FORE  =>  2, 

AFT=>8, 

EXP=>0); 

NEW.LINE  (FILE  =>  OUTPUT_FILES(3),  SPACING  =>  1); 
end  loop; 

REMOVE  NEXT  NODE(FEATURE_TYPES(MEL_CEPSTRUM),FEATURE  HEAD,FEA- 
TURE_TAIL); 

for  INDEX  in  1  ..M.COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(5),  ITEM  =>  MEL_CEPSTRUMaNDEX)/NORMALIZE(5). 
FORE  =>  2, 

AFT=>8, 

EXP=>0); 

NEW.LINE  (FILE  =>  OUTPUT_FILES(5).  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(BL_CEPSTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL); 

fOT  INDEX  in  l..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_nLES(7),  ITEM  =>  BL_CEPSTRUM(INDEX)/NORMALIZE(7), 
FORE=>2, 

AFT=>8, 

EXP=>0); 

NEW.LINE  (RLE  =>  OUTPUT_FILES(7),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_SPECTRUM)J^ATURE_HEAD,FEA- 

TURE_TAIL); 

for  INDEX  in  I ..  16  loop 
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PUT  (FILE  =>  OUTPUT_FILES(2),  ITEM  =>  DELTA_SPECTRUM(INDEXyNORMALIZE(2), 
FORE  =>  2, 

AFT=>8, 

EXP  =>  0); 

NEW_LINE  (FILE  =>  OUTPUT_FILES(2),  SPACING  =>  1); 
end  loq); 

REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_CEPSTRUM)4^ATURE_HEADJ^A- 

TURE_TAIL); 

for  INDEX  in  1  ..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(4),  ITEM  =>  DELTA_CEPSTRUM(INDEXyNORMALIZE(4), 
FORE  =>  2, 

AFT=>8, 

EXP=>0); 

NEW_LINE  (HLE  =>  OUTPUT_nLES(4).  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_MEL_CEPSTRUM),FEA- 

TURE_HEAD.FEATURE_TAIL); 

for  INDEX  in  1  ..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_nLES(6),  ITEM  =>  DELTA_MEL_CEPSTRUM(INDEX)/NORMAL- 
IZE(6), 

FORE=>  2, 

AFT=>8, 

EXP  =>0); 

NEW_LINE  (FILE  =>  OUTPUT_FILES(6).  SPACING  =>  1); 
end  loop; 

REM0VE_NEXT_N0DE(FEATURE_TYPES(DELTA_BL_CEPSTRUM),FEA- 

TURE_HEAD,FEATURE_TAIL); 

for  INDEX  in  1  ..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_HLES(8),  ITEM  =>  DELTA_BL_CEPSTRUMaNDEX)/NORMALIZE(8), 
FORE  =>  2. 

AFT=>8, 

EXP  =>  0); 

NEW.LINE  (FILE  =>  OUTPUT_FILES(8),  SPACING  =>  1); 
end  loop; 

REM0VE_NEXT_N0DE(FEATURE_TYPES(DELTA_SPECTRUM),FEATURE_HEADJ^A- 

TURE_TAIL); 

for  INDEX  in  1..16  loop 

PUT  (FILE  =>  OUTPUT_FILES(2),  ITEM  =>  DELTA_SPECTRUM(INDEX)/NORMALIZE(2), 
FORE=>  2, 

AFT  =>8, 

EXP=>0); 

NEW_LINE  (FILE  =>  OUTPUT_FILES(2)  SPACING  =>  1); 
end  loop; 
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REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_CEPSTRUM),FEATURE_HEAD,FEA- 

TURE_TAIL): 

for  INDEX  in  l..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(4),  ITEM  =>  DELTA_CEPSTRUM(INDEXyN0RMALIZE(4), 
FORE=>  2, 

AFT=>8, 

EXP=>0); 

NEW_LINE  (FILE  =>  OUTPUT_nLES(4),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE_TYPES(DELTA_MEL_CEPSTRUM),FEA- 

TURE_HEADTTEATURE_TAIL); 

for  INDEX  in  l..M_COMPONENTS  loop 

PUT  (FILE  =>  OUTPUT_FILES(6),  ITEM  =>  DELTA_MEL_CEPSTRUM(INDEX)/NORMAL- 
IZE(6), 

FORE  =>  2, 

AFT=>8. 

EXP  =>  0); 

NEW_LINE  (FILE  =>  OUTPUT_FILES(6),  SPACING  =>  1); 
end  loop; 

REMOVE_NEXT_NODE(FEATURE  TYPES(DELTA_BL_CEPSTRUM)J^A- 

ture_headjt;ature_tail); 

for  INDEX  in  1  ..M.COMPONENTS  loop 

PUT  (HLE  =>  0UTPUT_FILES(8),  ITEM  =>  DELTA_BL_CEPSTRUMaNDEX)/NORMALIZE(8), 
FORE=>2. 

AFT=>8, 

EXP=>  0); 

NEW_LINE  (FILE  =>  OUTPUT_nLES(8),  SPACING  =>  1); 

end  loop; 
end  if; 
end  loop; 

for  INDEX  in  1  ..8  loop 

CLOSE  (HLE  =>  OUTPUT.FILESGNDEX)); 
end  loop; 

end  CREATE_ALL_FEATURE; 

procedure  DO.FEATURE  (PROCESSING.MODE  :  in  FEATURE_MODE_TYPE )  is 
-  [procedure_header_comment] 

OUTPUT_nLE :  FILE_TYPE; 

WORD_POINTER  :  DATABASE_LIST.LIST  :=  DATABASE_HEAD; 

THE.HLE,  FILE_NAME :  VAR_STRING; 
begin 

if  PROCESSING_MODE  =  SINGLE  then 
PUT_LINE  (ITEM  =>  “TYPE  IN  NAME  OF  WORD.  LESS  EXTENSION”); 
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GET.LINE  GTEM  =>  THE.HLE); 
else 

NEXT_WORD(THE_FILE,WORD_POINTER); 
end  if; 

FEATURES;  loop 

THE.HLE  ;=  PREHX&THE.FILE; 

PUT  (ITEM  =>  “CREATING  FEATURE(S)  FOR  WORD  “); 

PUT  (ITEM  =>  THE_nLE); 

NEWSLINE; 

CREATE_ALL_FEATURE(THE_nLE); 
if  PROCESSING_MODE  =  SINGLE  then 
exit  FEATURES; 
else 

NEXT_WORD(THE_FILE,WORD_POINTER); 
end  if; 

end  loop  FEATURES; 
exception 

when  DATABASE_LIST.UNDER_FLOW  => 

NULL; 

end  IX)_FEATURE; 

procedure  FEATURE_CONTROL_PANEL  is 
-  [procedure_header_comment] 

subtype  CHOICE_INTEGER  is  INTEGER  range  1  ..4; 

INPUT.nLE,  OUTPUT.nLE :  RLE.TYPE; 

THE.HLE,  DUMMY,  UNDER_SCORE,  PERSON,  EXTENSION,  FILE_NAME :  VAR_STRING; 
CHOICE ;  CHOICEJNTEGER; 

MODE  :  FEATURE_MODE_TYPE  :=  BATCH; 

package  ENUMERATION.IO  is  new  TEXT_IO.ENUMERATION_IO  (FEATURE_MODE_TYPE); 
package  INTEGERJO  is  new  TEXTJO.INTEGERJO  (CHOICE_INTEGER); 
use  INTEGER_IO,  ENUMERATIONJO; 


begin 

MAIN:  loop 
begin 

NEW_LINE  (2); 
PUT.LINE  (ITEM  =>  “ 
PUT_LINE(nEM=>“ 
PUT_LINE  (ITEM  =>  “ 
PUT.LINE  (nEM->“ 


1  -  SET  MODE  -  SINGLE  OR  BATCH  (BATCH)”); 

2  -  SET  PREHX  NAME”); 

3  -  CREATE  ALL  FEATURES”); 

4 -TO  QUIT’); 
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NEW_LINE; 

PUT  (ITEM  =>  “  CHOICE  ->  “); 

GET(CHOICE); 

GET_LINE  (ITEM  =>  DUMMY); 
case  CHOICE  is 
when  1  => 

NEW.LINE; 

PUT  (ITEM  =>  “TYPE  SINGLE  OR  BATCH  “); 

GET  (ITEM  =>  MODE); 

GET.LINE  (ITEM  =>  DUMMY); 

when  2  => 

NEW_LINE; 

PUT  GTEM  =>  “TYPE  IN  NAME  OF  FEATURE  “); 

GET_LINE  (ITEM  =>  PREHX); 
when  3  => 

IX)_FEATURE(MODE); 

when  4  => 
exit  MAIN; 
end  case; 

i 

exception 

when  DATA.ERROR  ==> 

PUT_LINE  (ITEM  =>  “HRST  DAY  WITH  THE  NEW  HNGERS  SHEEEESH,  TRY  AGAIN”); 
end; 

end  loop  MAIN; 

end  FEATURE_CONTROL_PANEL; 
end  FEATURE_PACKAGE; 
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-  [source_file_header_comment] 

with  TEXTJO,  REC_SUPPORT_PACKAGE,  DATABASE_PACKAGE,  STRING_OPERATIONS; 
with  FUSION_REC_PACKAGE: 

use  TEXTJO.  DATABASE_PACKAGE,  STRING_OPERATIONS,  FUSION_REC_PACKAGE; 
package  RECOGNITION.PACKAGE  is 


-  PACKAGE  DESCRIPTION: 

TTiis  package  instantiates  the  rec_support  package  for  all  the  different 

-  used  for  recognition 

-  [optional  package  tags] 

use  FUSION_LlST.  FUSED_FEATURE_LIST; 

tj  pe  RECOGNIZER_TYPE  is  (TIME_WARP,  TWO_DEE,  ERROR); 

M  ;  CONSTANT  :=  16; 

package  ENUMERATION.IO  is  new  TEXT_IO.ENUMERATIONJO  (RECOGNIZER.TYPE); 

-  instantiate  packages  for  each  feature 

package  LPPS.SPEECH  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  16, 
NAME_OF_FEATURE  =>  “LPPS” 

); 

package  DPPS_SPEECH  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  16, 
NAME_OF_FEATURE  =>  “DPPS” 

); 

package  LFCC_SPEECH  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “LFCC” 

); 

package  DFCC_SPEECH  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “DFCC” 

); 

package  MFMC.SPEECH  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  => 

M. 

NAME_OF_FEATURE  =>  “MFMC” 

); 

package  DFMC_SPEECH  is  new  REC.SUPPORTJPACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “DFMC” 

); 

package  BLMC.SPEECH  is  new  REC_SUPPORr_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
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NAME_OF_FEATURE  =>  “BLMC” 

); 

package  DLMC.SPEECH  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “DLMC” 

); 

use  LPPS.SPEECH,  DPPS_SPEECH,  LFCC_SPEECH,  DFCC_SPEECH; 

use  MFMC_SPEECH,  DFMC.SPEECH,  BLMC_SPEECH,  DLMC_SPEECH,  ENUMERATION_IO; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION; 

This  procedure  allows  for  an  interactive  menu  for  doing  recognition 

-  operations 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  RECOGNITION_CONTROL_PANEL; 
end  RECOGNITION.PACKAGE; 
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-  [source_rile_header_comment] 

package  bcxly  RECOGNITION.PACKAGE  is 

-  [package_body_header_comment] 

procedure  RECOGNITION_CONTROL_PANEL  is 
-  [procedure_header_comment] 
subtype  CHOICE_INTEGER  is  INTEGER  range  1..15; 

CHOICE :  CHOICEJNTEGER; 

ONLINE ;  CHARACTER; 

RECOGNIZER  :  RECOGNIZER_TYPE  ;=  TIME^WARP; 

COMPONENTS  :  INTEGER; 

WORDl ,  WORD2,  TESTl ,  TEST2,  THE.HLE,  DUMMY,  NEW_FEATURE_NAME  : 
VAR_STR1NG; 

RESULTS :  RESULT_RECORD_TYPE; 

NEW_FEATURES  :  FEATURE_RECORD_TYPE; 

FUSED_FEATURE_HEAD,  FUSED_FEATURE_TAIL :  FUSED_FEATURE_LIST.LIST; 
package  INTEGERJO  is  new  TEXTJO.INTEGERJO  ONTEGER); 
package  CHOICEJNTEGERJO  is  new  TEXTJO.INTEGERJO  (CHOICEJNTEGER); 
use  CHOICE_INTEGERJO,  INTEGER_IO; 


begin 

FUSED_FEATURE_LIST.NULL_POINTER(FUSED_FEATURE_HEAD); 

FUSED_FEATURE_LIST.NULL_POINTER(FUSED_FEATURE_TAIL); 

RESULT_LIST.NULL_POINTER(RESULTS.RESULT_HEAD); 

RESULT_LIST.NULL_POINTER(RESULTS.RESULT_TAIL); 


MAIN:  loop 


begin 


NEW_L1NE(2); 
Pirr_LINE  aTEM=>  “ 
PUT_LINE  GTEM  =>  “ 
PUT_LINE  aTEM=>“ 
PUT_LINE  (ITEM  =»  “ 
PUT_LINE  (ITEM  =>  “ 
PUT.LINE  GTEM  =>  “ 
PUT_LINE  GTEM  =>  “ 
PUT_LINE  GTEM  =>  “ 
PUT_LINE  GTEM  =>  “ 
PUT.LINE  (ITEM  =>  “ 
PUT_LINE  GTEM  =>  “ 
PUT.LINE  (ITEM  =>  “ 
PUT_LINE  (ITEM  =>  “ 
PUT.LINE  (ITEM  =>  “ 
PUT_LINE  (ITEM  =>  “ 


1  -  BRING  RECOGNIZER(S)  ONLINE”); 

2  -  INPUT  FILE  FOR  RECOGNITION  TEST’); 

3  -  SET  RECOGNIZER  TYPE  (TIME  WARP)”); 

4  -  RECOGNIZE  USING  LP  POWER  SPECTRUM”); 

5  -  RECOGNIZE  USING  LP  DELTA  POWER  SPECTRUM”); 

6  -  RECOGNIZE  USING  LFCEPSTRUM  COEFHCIENTS”); 

7  -  RECOGNIZE  USING  LF  DELTA  CEPSTRUM  COEFRCIENTS”); 

8  -  RECOGNIZE  USING  MF  CEPSTRUM  COEFnCIENTS”); 

9  -  RECOGNIZE  USING  MF  DELTA  CEPSTRUM  COEFFICIENTS”); 

10  -  RECOGNIZE  USING  BL  CEPSTRUM  COEFHCIENTS”); 

1 1  -  RECOGNIZE  USING  BL  DELTA  CEPSTRUM  COEFHCIENTS”); 

12  -  RECOGNIZE  USING  ALL  FEATURES”); 

13  -  RECOGNIZE  USING  FUSED  FEATURES”); 

1 4  -  OUTPUT  ERROR  SURFACE”); 

15 -QUIT’); 
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NEW.LINE; 

PUT  (ITEM  =>  “  CHOICE  ->  “); 

CHOICEJNTEGERJO.GET  (ITEM  =>  CHOICE); 

GET.LINE  (ITEM  =>  DUMMY); 
case  CHOICE  is 
when  1  => 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “ALL  RECOGNIZERS?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
LPPS_SPEECH.UPDATE_WORD_LIST; 
DPPS_SPEECH.UPDATE_WORD_LIST; 
LFCC_SPEECH.UPDATE_WORD_LIST; 
DFCC_SPEECH.UPDATE_WORD_LIST; 
MFMC_SPEECH.UPDATE_WORD_LIST; 
DFMC_SPEECH.UPDATE_WORD_LIST; 
BLMC_SPEECH.UPDATE_WORD_LIST; 
DLMC_SPEECH.UPDATE_WORD_LIST; 
else 

NEW.LINE; 

PUT.LINE  (ITEM  =>  “BRING  RECOGNIZER  LPPS  ONLINE?”); 
GET  (ITEM  «>  ONLINE); 

GET.LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
LPPS_SPEECH.UPDATE_WORD_LIST; 
end  if; 

PUT_LINE  (ITEM  =>  “BRING  RECOGNIZER  DPPS  ONLINE?”); 
GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
DPPS_SPEECH.UPDATE_WORD_LIST; 
end  if; 

PUT_LINE  (ITEM  =>  “BRING  RECOGNIZER  LFCC  ONLINE?”); 
GET  (ITEM  =>  ONLINE); 

GET.LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
LFCC_SPEECH.UPDATE_WORD_LIST; 
end  if  ; 

PUT_LINE  OTEM  =>  “BRING  RECOGNIZER  DFCC  ONLINE?”); 
GET  (ITEM  ->  ONLINE); 

GET.LINE  (ITEM  =>  DUMMY); 
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if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
DFCC_SPEECH.UPDATE_W0RD_LIST; 
ead  if; 

PUT.LINE  (ITEM  =>  “BRING  RECOGNIZER  MFMC  ONLINE?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  -  ‘y’  then 
MFMC_SPEECH.UPDATE_WORD_LIST; 
end  if; 

PUT_LINE  (ITEM  =>  “BRING  RECOGNIZER  DFMC  ONLINE?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
DFMC_SPEECH.UPDATE_WORD_LIST; 
end  if; 

PUT_LINE  (ITEM  =>  “BRING  RECOGNIZER  BLMC  ONLINE?”); 

GET  (ITEM  =>  ONLINE); 

GET.LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
BLMC_SPEECH.UPDATE_WORD_LIST; 
end  if; 

PUT_LINE  (ITEM  =>  “BRING  RECOGNIZER  DLMC  ONLINE?”); 

GET  (ITEM  =>  ONLINE); 

GET.LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  'Y’ OR  ONLINE  =  -y’ then 
DLMC_SPEECH.UPDATE_WORD_LIST; 

end  if; 
end  if; 

when  2  => 

NEW_LINE; 

PUT  LINE  (ITEM  =>  “TYPE  IN  THE  NAME  OF  THE  RLE  FOR  RECOGNITION,  LESS  THE  EX¬ 
TENSION”); 

GET_LINE  GTEM  =>  THE.RLE); 

when  3  «> 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “TYPE  IN  TIME_WARP.  TWO.DEE,  ERROR”); 

GET  (ITEM  =>  RECOGNIZER); 

GET_LINE  (ITEM  =>  DUMMY); 
when  4  -> 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  ;=  LPPS_SPEECH.RECOGNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”LPPS_TW”); 
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elsif  RECOGNIZER  =  ERROR  then 

RESULTS  :=  LPPS_SPEECH.RECOGNIZE_ERROR(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME”LPPS.ER”); 
else 

RESULTS  :=  LPPS_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”LPPS_2D”;; 
end  if; 

ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAIL); 
when  5  => 

if  RECOGNIZER  =  TIME.WARP  then 
RESULTS  ;=  DPPS_SPEECH.RECOGNIZE(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DPPS_TW”); 
elsif  RECOGNIZER  =  ERROR  then 

RESULTS  :=  DPPS_SPEECH.RECOGNIZE_ERROR(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DPPS.ER”); 
else 

RESULTS  :=  DPPS_SPEECH.RECOGNIZE_TWO_DEE(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME”DPPS_2D”); 
end  if; 

ADD_TO(RESULTS,  FUSION_HEAD,  FUS10N_TAIL); 
when  6  => 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  LFCC.SPEECH.RECOGNlZEfTHE.RLE); 
ASSIGN(RESULTS.FEATURE_NAME,”LFCC_TW”); 
elsif  RECOGNIZER  =  ERROR  then 

RESULTS  :=  LFCC_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
.ASS1GN(RESULTS.FEATURE_NAME,”LFCC.EF”); 
else 

RESULTS  :=  LFCC_SPEECH.RECOGNIZE_TWO_UEE(THE_nLE); 
ASS1GN(RESULTS.FEATURE_NAME,”LFCC_2D”); 
end  if; 

ADD_TO(RESULTS,  FUSION_HEAD.  FUSION_TAIL); 
when  7  => 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  DFCC_SPEECH.RECOGNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME.”DFCC_TW”); 
elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  DFCC_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”DFCC.ER”); 
else 

RESULTS  ;=  DFCC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”DFCC_2D”); 
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end  if; 

ADD_TO(RESULTS.  FUSION_HEAD.  FUSION.TAIL); 
when  8  => 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  MFMC_SPEECH.RECC)GNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”MFMC_TW”); 
elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  MFMC_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”MFMC.ER”); 
else 

RESULTS  :=  MFMC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”MFMC_2D”); 
end  if; 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL); 
when  9  => 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  DFMC_SPEECH.RECC)GNIZE(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DFMC_TW”): 
elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  DFMC_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
ASS1GN(RESULTS.FEATURE_NAME”DFMC.ER”); 
else 

RESULTS  :=  DFMC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”DFMC_2D”); 
end  if; 

ADD_TO(RESULTS,  FUSION_HEAD.  FUSION.TAIL); 
when  10  => 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  BLMC_SPEECH.RECOGNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATT;RE_NAME”BLMC_TW”); 
elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  BLMC_SPEECH.RECOGNIZE_ERROR(,THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”BLMC.ER”); 
else 

RESULTS  :=  BLMC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_Ni»  ME,”BLMC_2D”); 
end  if; 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION.TAIL); 
when  1 1  => 

if  RECOGNIZER  =  TIME_WARP  then 
RESULTS  :=  DLMC_SPEECH.RECOGNIZE(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC_TW”); 
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elsif  RECOGNIZER  =  ERROR  then 
RESULTS  :=  DLMC_SPEECH.RECOGNIZE_ERROR(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC.ER”); 
else 

RESULTS  :=  DLMC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC_2D”): 
end  if; 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION.TAIL); 
when  12  => 

if  RECOGNIZER  =  TIME.WARP  then 
RESULTS  :=  LPPS_SPEECH.RECOGNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”LPPS_TW”); 

ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAIL); 

RESULTS  ;=  DPPS_SPEECH.RECOGNlZE(THE_FILE): 
ASSIGN(RESULTS.FEATURE_NAME,”DPPS_TW'”); 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL); 

RESULTS  :=  LFCC_SPEECH.RECOGNIZE(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME”LFCC_TW”): 

ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAIL); 

RESULTS  ;=  DFCC_SPEECH.RECOGNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME.”DFCC_TW”); 

ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAIL); 

RESULTS  :=  MFMC_SPEECH.RECOGNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME.”MFMC_TW”); 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL): 

RESULTS  :=  DFMC_SPEECH.RECOGNIZE(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DFMC_TW”); 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL); 

RESULTS  :=  BLMC_SPEECH.RECOGNIZE(THE_nLE); 
ASSIGN(RESULTS.FEATLIRE_NAME,”BLMC_TW”); 

ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAlL); 

RESULTS:=DLMC_SPEECH.RECOGNIZE(THE_nLE); 

ASSIGN(RESULTS.FEATURE_NAME”DLMC_TW”); 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL); 
elsif  RECOGNIZER  =  ERROR  then 

RESULTS  :=  LPPS_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”LPPS.ER”); 

ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL); 

RESULTS  :=  DPPS_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”DPPS_ER”): 

ADD_TO(RESULTS,  FUSION_HEAD,  FUS10N_TAIL); 

RESULTS  :=  LFCC_SPEECH.RECOGNIZE_ERROR(THE_FILE); 
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ASSIGN(RESULTS.FEATURE_NAME”LFCC_ER”); 
ADD_TO(RESULTS,  FUSION_HEAD.  FUSION_TAlL); 

RESULTS  :=  DFCC_SPEECH.RECCGNlZE_ERROR(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”DFCC_ER”); 
ADD_TO(RESULTS,  FUSION_HEAD.  FUSION_TAIL); 

RESULTS  ;=  MFMC_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”MFMC_ER’'); 
ADD_TO(RESULTS,  FUSION_HEAD.  FUSION_TAIL); 

RESULTS  :=  DFMC_SPEECH.RECOGNIZE_ERROR(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DFMC_ER”); 
ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAlL); 

RESULTS  :=  BLMC_SPEECH.RECOGNIZE_ERROR(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”BLMC_ER”); 
ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAIL); 

RESULTS  ;=  DLMC_SPEECH.RECOGNIZE_ERROR(THE_FILE); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC_ER”): 
ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL): 
else 

RESULTS  :=  LPPS_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”LPPS_2D”); 
ADD_T0(RESULTS,  FUSION.HEAD,  FUSION.TAIL); 

RESULTS  ;=  DPPS_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”DPPS_2D”); 
ADD_TO(RESULTS,  FUSION.HEAD,  FUSION.TAIL); 

RESULTS  :=  LFCC_SPEECH.RECOGNlZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”LFCC_2D”); 
ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAlL); 

RESULTS  :=  DFCC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME”DFCC_2D”); 
ADD_TO(RESULTS,  FUSION_HEAD,  FUSION_TAIL); 

RESULTS  :=  MFMC_SPEECH.RECOGNIZE_TWO_DEE(THE_FlLE); 
ASS1GN(RESULTS.FEATURE_NAME,”MFMC_2D”); 
ADD_TO(RESULTS,  FUSION_HEAD.  FUSION_TAlL); 

RESULTS  :=  DFMC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”DFMC_2D”); 
ADD_TO(RESULTS,  FUSION.HEAD,  FUSION.TAIL); 

RESULTS  ;=  BLMC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,"BLMC_2D”); 
ADD_TO(RESULTS,  FUSION.HEAD,  FUSION_TAIL); 

RESULTS  :=  DLMC_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
ASSIGN(RESULTS.FEATURE_NAME,”DLMC_2D”); 
ADD_TO(RESULTS.  FUS10N_HEAD,  FUSION.TAIL); 
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end  if; 
when  13  => 

COMPONENTS  ;=  0; 

INPUT:  loop 

PUT_LINE  aTEM  =>  “TYPE  IN  NAME  OF  THE  FEATURE”); 

GET_LINE  (ITEM  =>  NEW_FEATURES.NAME); 

PUT_LINE  GTEM  =>  “TYPE  THE  NUMBER  OF  COMPONENTS”); 

INTEGERJO.GET  (ITEM  =>  NEW.FEATURES.COMPONENTS); 

COMPONENTS  :=  COMPONENTS  +  NEW_FEATURES.COMPONENTS; 

GET_LINE  (ITEM  =>  DUMMY); 

FUSED_FEATURE_LIST.ADD_TO(NEW_FEATURES,FUSED_FEA- 

TURE_HEADJTJSED_FEATURE_TAIL); 

PUT  GTEM  =>  “DO  YOUWANT  TO  ADD  ANOTHER  FEATURE?  “); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 

exit  INPUT  when  ONLINE  =  ‘N’  OR  ONLINE  =  ‘n’; 

end  loop  INPUT; 

PUT.LINE  (ITEM  =>  “TYPE  NAME  OF  NEW  FEATURE”); 

GET.LINE  (ITEM  =>  NEW_FEATURE_NAME); 
declare 

package  FUSED.SPEECH  is  new  REC_SUPPORT_PACKAGE 
(NUMBER_OF_COMPONENTS  =>  COMPONENTS, 

NAME_OF_FEATURE  =>  STRING_VALUE(NEW_FEATURE_NAME)); 
use  FUSED.SPEECH; 
begin 

FUSED_SPEECH.CREATE_FUSION_WORD_LIST(FUSED_FEATURE_HEAD,FUSED_FEA- 

TURE_TAIL); 

FUSED_SPEECH.CREATE_FUSION_WORD(THE_FILE,FUSED_FEA- 

TURE_HEADdTJSED_FEATURE_TAJL); 

if  RECOGNIZER  -  TIME_WARP  then 

RESULTS  :=  FUSED_SPEECH.RECOGNIZE(THE_nLE); 

RESULTS.FEATURE.NAME  :=  NEW_FEATURE_NAME&”_TW”; 

elsif  RECOGNIZER  =>  ERROR  then 

RESULTS  :=  FUSED_SPEECH.RECOGNIZE_ERROR(THE_nLE); 

RESULTS.FEATURE_NAME  :=  NEW_FEATURE_NAME&”_ER”; 

else 

RESULTS  :=  FUSED_SPEECH.RECOGNIZE_TWO_DEE(THE_nLE); 
RESULTS.FEATURE.NAME  :=  NEW_FEATURE_NAME&”_2D”; 
end  if; 

ADD_TO(RESULTSJTJSION_HEADjaJSION_TAIL); 

end; 

when  14«> 

PUT_LINE  (ITEM  ->  “NAME  OF  WORD  1”); 
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GET_LINE  (ITEM  =>  WORDl); 

PUT_LINE  (ITEM  =>  “NAME  OF  WORD  2”); 

GET_LINE  (ITEM  =>  WORD2); 

PUT_LINE  (ITEM  =>  “NAME  OF  OUTPUT  FILE”); 

GET_LINE  (ITEM  =>  THE_FILE); 

PUT.LINE  (ITEM  =>  “ALL  FEATURES?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
LPPS_SPEECH.OUTPUT_ERROR_SURFACE(WORD  1  ,WORD2,THE_FILE); 
DPPS_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_FILE); 
LFCC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_nLE); 
DFCC.SPEECH.OUTPUT_ERROR_SURFACE(WORDl.WORD2,THE_nLE); 
MFMC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2.THE_nLE); 
DFMC_SPEECH.OUTPUT_ERROR_SURFACE(WORD  1  ,WORD2,THE_FILE); 
BLMC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_nLE); 
DLMC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_FILE); 
else 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “OUTPUT  FEATURE  LPPS?”); 

GET  (ITEM  =>  ONLINE); 

GET.LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
LPPS_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2.THE_nLE); 
end  if; 

PUT.LINE  (ITEM  =>  “OUTPUT  FEATURE  DPPS?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
DPPS_SPEECH.0UTPUT_ERR0R_SURFACE(W0RDLW0RD2,THE_FILE); 
end  if; 

PUT_LINE  (ITEM  =>  “OUTPUT  FEATURE  LFCC?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
LFCC_SPEECH.OUTPUT_ERROR_SURFACE(WORDI.WORD2.THE_nLE); 
end  if; 

PUT_LINE  (ITEM  =>  “OUTPUT  FEATURE  DFCC?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  ->  DUMMY); 
if  ONLINE  =  ‘Y’  OR  ONLINE  =  ‘y’  then 
DFCC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_FILE); 
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end  if; 

PUT_LINE  (ITEM  =>  “OUTPUT  FEATURE  MFMC?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
MFMC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl.WORD2,THE_nLE); 
end  if; 

PUT_LINE  (ITEM  =>  “OUTPUT  FEATURE  DFMC?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
DFMC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_nLE); 
end  if; 

PUT.LINE  (ITEM  =>  “OUTPUT  FEATURE  BLMC?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
BLMC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_nLE); 
end  if; 

PUT.LINE  (ITEM  =>  “OUTPUT  FEATURE  DLMC?”); 

GET  (ITEM  =>  ONLINE); 

GET_LINE  (ITEM  =>  DUMMY); 
if  ONLINE  =  ‘  Y’  OR  ONLINE  =  ‘y’  then 
DLMC_SPEECH.OUTPUT_ERROR_SURFACE(WORDl,WORD2,THE_FILE); 

end  if; 
end  if; 

when  15  => 
exit  MAIN; 
end  case; 
exception 

when  DATA_ERROR  => 

PUT_LINE  (ITEM  =>  “THERE  ARE  1 4  CHOICES.  GET  WITH  THE  PROGRAM  AND  TYPE  A 
NUMBER  BETWEEN  1  AND  9”); 

end; 

end  loop  MAIN; 

end  RECOGNrnON_CONTROL_PANEL; 
end  RECOGNITION.PACKAGE; 
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-  [source_file_header_comment] 

with  TEXTJO,  REC_SUPPORT_PACKAGE,  DATABASE_PACKAGE,  STRING_OPERATIONS; 
with  FUSION_REC_PACKAGE,  LINKED_LIST, 

use  TEXTJO,  DATABASE_PACKAGE,  STRING_OPERATIONS,  FUSION_REC_PACKAGE; 
pxkage  TEMPLATE_PACKAGE  is 


-  PACKAGE  DESCRIPTION; 


This  package  instantiates  the  rec_support_package  for  all  the  different 

-  features  for  creating  templates 

-  [optional  package  tags] 


M ;  constant  :=  16; 

use  PREHX.LIST; 

-  instantiate  for  each  feature 

package  LPPS_TEMP  is  new  REC_SUPPORT_PACKAGE  (NlJMBER_OF_COMPONENTS  =>  16, 
NAME_OF_FEATURE  =>  “LPPS” 

); 

package  DPPS_TEMP  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  16, 
NAME_OF_FEATURE  =>  “DPPS” 

); 

package  LFCC_TEMP  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “LFCC” 

t- 

package  DFCC_TEMP  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “DFCC” 

); 

package  MFMC_TEMP  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “MFMC” 

); 

package  DFMC_TEMP  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “DFMC” 

); 

package  BLMC.TEMP  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
NAME_OF_FEATURE  =>  “BLMC” 

); 

package  DLMC_TEMP  is  new  REC_SUPPORT_PACKAGE  (NUMBER_OF_COMPONENTS  =>  M, 
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NAME_OF_FEATURE  =>  “DLMC” 

); 

use  LPPS_TEMP,  DPPS_TEMP.  LFCC.TEMP,  DFCC_TEMP.  PREHX.LIST; 
use  MFMC_TEMP,  DFMC_TEMP,  BLMC_TEMP,  DLMC.TEMP; 


-++ 

-  FUNCTIONAL  DESCRIPTION: 

This  procedure  provides  and  interactive  menu  for  doing  template 

-  operations 

-  [fconal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  TEMPLATE_CONTROL_PANEL; 
end  TEMPLATE_PACKAGE; 
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-  [sciurce_file_header_comment] 
package  body  TEMPLATE_PACKAGE  is 

-  [package_body_header_comment] 

procedure  TEMPLArE_CONTROL_PANEL  is 
-  [procedure_header_cominent] 
subtype  CHOICEJNTEGER  is  INTEGER  range  1..8; 

CHOICE :  CHOICEJNTEGER; 

ONLINE :  CHARACTER; 

IN_PREFIX,  THE_nLE,  DUMMY,  PREFIX,  OUT.PREHX :  VAR_STRING; 
TEMP_FACTOR  :  FLOAT  :=  0.2; 

package  FLOAT  JO  is  new  TEXTJO.FLOATJO  (FLOAT); 
package  INTEGER_IO  is  new  TEXTJO.INTEGERJO  aNTEGER); 
package  CHOICE_INTEGERJO  is  new  TEXTJO.INTEGERJO  (CHOICEJNTEGER); 
use  CHOICE_INTEGER_IO,  FLOAT_IO,  INTEGER  JO; 


begin 

MAIN:  loop 
begin 

NEW_LINE(2); 
PUT_LINEaTEM=>“ 
PUT.LINE  GTEM  =>  “ 
PUT.LINE  GTEM  =>  “ 
PUT.LINE  GTEM  =>  “ 
PUT_LINE  GTEM  =>  “ 
PUT_LINE  (ITEM  =>  “ 
PUT_LINE  (ITEM  =>  “ 
PUT.LINE  aXEM  =>  “ 
NEW.LINE; 


1  -  C,  CREATE  LIST  OF  PREHXES”); 

2  -  C  U,  SET  WORD  NAME  FOR  TEMPLATING”); 

3  -  C  U,  SET  OUTPUT  TEMPLATE  PREHX”); 

4  -  U,  SET  TEMPLATE  FACTOR”); 

5  -  U,  SET  INPUT  TEMPLATE  PREFIX”); 

6  -  CREATE  TEMPLATE”); 

7  -  UPDATE  TEMPLATE”); 

8  -  QUIT  TEMPLATE  SUBSYSTEM”); 


PUT  (ITEM  =>“  CHOICE ->“); 

CHOICE JNTEGERJO.GET  (ITEM  =>  CHOICE); 
GET_LINE  (ITEM  =>  DUMMY); 
case  CHOICE  is 


when  1  => 

PREnX_LIST.CLEAR_LIST(PREnX_HEADEREnX_TAIL); 

NEW.LENE; 

GET.PREHXES:  loop 

PUT_LINE  (ITEM  =>  “TYPE  NAME  OF  PREHX”); 
GET_LINE  (ITEM  =>  PREHX); 

PREHX_LIST.ADD_TO(PREHXJ'REFIX_HEADJ>REnX_TAIL); 
PUT.LINE  (ITEM  =>  “DO  YOU  WANT  TO  ADD  ANOTHER?”); 
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GET(ONLINE); 

GET_LINE  GTEM  =>  DUMMY); 

exit  GET.PREFLXES  when  ONLINE  =  ‘N’  OR  ONLINE  =  ‘n’; 
end  loop  GET.PREHXES; 
when  2  => 

NEW_L1NE; 

PUT_LINE  (ITEM  =>  “TYPE  IN  THE  NAME  OF  THE  WORD  FOR  TEMPLATENG,  THE  EXTEN¬ 
SION”); 

GET_LINE  OTEM  =>  THE_HLE); 

when  3  => 

NEW.LINE; 

PUT_LINE  GTEM  =>  “TYPE  IN  THE  NAME  OF  THE  OUTPUT  PRERX”); 

GET.LINE  GTEM  =>  OUT_PREnX); 
when  4  => 

PUT_LINE  (ITEM  =>  “TYPE  IN  THE  TEMPLATING  FACTOR”); 

GET  (ITEM  =>  TEMP_FACTOR); 

GET_LINE  (ITEM  =>  DUMMY); 

when  5  => 

NEW.LINE; 

PUT.LINE  (ITEM  =>  “TYPE  IN  THE  NAME  OF  THE  INPUT  PREFIX”); 

GET.LINE  GTEM  =>  IN.PREFDQ; 
when  6  => 

LPPS_TEMP.CREATE_TW_TEMPLATE(OUT_PREFIX,THE_nLE); 
DPPS_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,THE_FILE); 
LFCC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,THE_nLE); 
DFCC_TEMP.CREATE_TW_TEMPLATE(OUT_PREFlX,THE_nLE); 
MFMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,THE_nLE); 
DFMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREFIX,THE_FILE); 
BLMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREnX,THE_nLE); 
DLMC_TEMP.CREATE_TW_TEMPLATE(OUT_PREFlX,THE_FILE); 
when  7  => 

LPPS_TEMP.UPDATE_TW_TEMPLATE(IN_PREnX,OUT_PREFIX,THE_FILE,TEMP_FACTOR); 

DPPS_TEMP.UPDATE_TW_TEMPLATE(IN_PREnX,OUT_PREnX,THE_nLE,TEMP_FACTOR); 

LFCC_TEMP.UPDATE_TW_TEMPLATEaN_PREnX.OUT_PREFIX,THE_nLE,TEMP_FACTOR); 

DFCC_TEMP.UPDATE_TW  TEMPLATE(IN_PREFIX.OUT_PREnx,THE_nLE,TEMP_FAC- 
TOR); 

MFMC_TEMP.UPDATE_TW_TEMPLATEaN_PREnX,OUT_PREnX,THE_nLE,TEMP_FAC- 

TOR); 

DFMC_TEMP.UPDATE_TW_TEMPLATEaN_PREnX.OUT_PREnX,THE_nLE,TEMP_FAC- 

TOR); 

BLMC_TEMP.UPDATE_TW_TEMPLATEaN_PREnX,OUT_PREnX,THE_nLE.TEMP_FAC- 

TOR); 

DLMC_TEMP.UPDATE_TW_TEMPLATE(IN_PREnX.OUT_PREFIX,THE_FILE,TEMP_FAC- 

TOR); 
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when  8  => 
exit  MAIN; 
end  case; 
excepticm 

when  DATA_ERROR  => 

PUT.LINE  (ITEM  =>  “THERE  ARE  8  CHOICES.  GET  WITH  THE  PROGRAM  AND  TYPE  A 
NUMBER  BETWEEN  1  AND  9”); 

end; 

end  Icxp  MAIN; 

end  TEMPLATE_CONTROL_PANEL; 
end  TEMPLATE_PACKAGE; 
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with  TEXTJO,  FLOAT_MATH_LIB,  STRING.OPERATIONS,  DATABASE_PACKAGE, 
LINKED_L1ST; 

with  FUSION_REC_PACKAGE; 

use  TEXT..IO,  FLOAT_MATH_LIB,  STRING.OPERATIONS,  DATABASE.PACKAGE; 
use  FUSI0N_REC_PACKAGE; 


generic 


ORDER  ;  INTEGER  :=  5; 
NUMBER_OF_COMPONENTS  :  INTEGER  ;=  I; 
NAME_OF_FEATURE ;  STRING; 


-  ++ 

-  FACILITY: 

-  {tbs> 

-  ABSTRACT; 

This  package  specifies  the  speech  utterance  data  types  and  operations 
that  take  place  on  this  data  type 

-  AUTHORS: 

-  THOMAS  RATHBUN 

-  CREATION  DATE: 

-  22  Oct  90 

-  MODinCATION  HISTORY: 

-  MODIFIED  FOR  THE  ASRT  PROGRAM.  JUL.AUG,SEP  1991 

package  REC_SUPPORT_PACKAGE  is 

-  ++ 

-  PACKAGE  DESCRIPTION; 

-  THIS  PACKAGE  CONTAINS  ALL  THE  PROCEDURES  AND  FUNCTIONS  NECESSARY  FOR 
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-  DOING  SPEECH  RECOGNITION.  THIS  PACKAGE  IS  GENERIC,  TO  BE  INSTANTIATED  FOR 

-  FOR  A  SPECinC  FEATURE. 


use  FUSION.LIST,  FUSED_FEATURE_LIST; 

-  MATRDC  TYPE  USED  FOR  INPUT  INTO  THE  TWO-DIMENTIONAL  FFT 
type  MATRIX_TYPE  is  array  (.INTEGER  range  o,  INTEGER  range  o)  of  FLOAT; 

-  ARRAY  TYPE  FOR  STORING  ALL  THE  COMPONENTS  IN  A  SINGLE  TIME  SLICE 

type  SLICE_ARRAY_TYPE  is  array  (INTEGER  RANGE  1  ..NUMBER_OF_COMPONENTS)  of 
FLOAT; 

-  LIST  FOR  STORING  ALL  TIME  SLICES  IN  A  WORD 

package  SLICE.LIST  is  new  LINKED_LIST  (ITEN:_TYPE  =>  SLICE_ARRAY_TYPE); 
use  SLICE.LIST; 

-  RECORD  TYPE  FOR  STORING  AN  ENTIRE  WORD 
type  WORD_TYPE  is 

record 

WORD_HEAD ;  SLICE_LIST.LIST; 

WORD_TAIL :  SLICE_LIST.LIST: 

WORD.LENGTH  ;  INTEGER  :=  0; 

WORD.NAME :  VAR_STRING; 
end  record; 

FILTER  :  INTEGER  :=  ORDER  *2+1; 

-  LIST  FOR  STORING  ALL  ^HE  WORDS  IN  THE  DATABASE 

pxkage  WORD_LIST  is  new  LINKED_LIST  (rTEM_TYPE  =>  WORD.TYPE); 
use  WORD_LIST; 

package  INTEGERJO  is  new  TEXT_IO.INTEGER_IO  (INTEGER); 
package  FLOATJO  is  new  TEXT_IO.FLOAT_IO  (FLOAT); 
use  FL0AT_10,  INTEGERJO; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION; 

-  THIS  FUNCTION  PERFORMS  DYNAMIC  TIME  \*’ARPING  BETWEEN  AN  UNKNOWN 

-  WORD  AND  THE  WORDS  IN  THE  DATABASE  LIST 

-  [formal  parameters] 

-  [design] 
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-  .optional  subprogram  tags] 

-  RETURN  VALUE: 

-  RETURNS  A  RECORD  CONTAINING  A  LIST  OF  DTW  DISTANCE 


function  RECOGNIZE  (NAME  :  in  VAR_STRING)  return  RESULT_RECORD_TYPE; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

-  THIS  FUNCTION  PERFORMS  LOW  FREQUENCY  TWO-DIMENSIONAL  FFT  COMPARISON 

-  ON  THE  IMAGE  OF  AN  UNKNOWN  WORDS  AND  THE  WORDS  INTHE  DATABASE  LIST 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

-  RETURNS  A  RECORD  CONTAINING  A  LIST  OF  LOW  FREQUNC  Y  DISTANCES 


function  RECOGNIZE_TWO_DEE  (NAME :  in  VAR_STRING)  return  RESULT_RECORD_TYPE; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

-  THIS  FUNCTION  PERFORMS  A  LOW  FREQUNCY  TWO-DIMENSIONAL  FFT  BETWEEN 

-  THE  ERROR  SURFACE  OF  AN  UNKNWON  WORD  AND  THE  WORDS  IN  THE  DATABASE 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

-  RETURNS  A  RECORD  CONTAINING  A  LIST  OF  LOW  FREQUNCY  DISTANCES 


function  RECOGNIZE_ERROR  (NAME :  in  VAR_STRING)  return  RESULT_RECORD_l  YPE; 

-  -M- 
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-  FUNCTIONAL  DESCRIPTION: 


-  TfflS  PROCEDURE  READS  ALL  FILES  OF  THE  WORDS  IN  THE  DATABASE  AND 

-  STORES  THEM  IN  A  LIST  FORRECOGNITION  PURPOSES 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 
procedure  UPDATE_WORD_LIST; 


-  FUNCTIONAL  DESCRIPTION: 

-  THIS  PROCEDURES  CREATES  A  NEW  DATABASE  WORD  LIST  FOR  A  FUSED  FEATURE 

-  FORM  THE  FEATURE  WORDS  LIST  ALREADY  CREATED 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  CREATE_FUSION_WORD_LIST  (FUSiON_FEATURE_HEAD,  FUSION  FEA- 
TURE_TAIL :  in  out  FUSED_FEATURE_LIST.LIST); 


-  FUNCTIONAL  DESCRIPTION: 

-  THIS  PROCEDURE  CREATES  A  NEW  FEATURE  FILE  FOR  THE  UNKNOWN  WORD 

-  FROM  THE  FEATURE  HLES  ON  DISK 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 


procedure  CREATE_FUSION_WORD  (WORD_NAME :  in  VAR_STRING; 

FUSION_FEATURE_HEAD,  FUSION_FEATURE_TAIL :  in  out  FUSED_FEATURE_LIST.LIST); 

-  ++ 


-  FUNCTIONAL  DESCRIPTION: 


This  funciiai  takes  two  words  and  returns  a  new  word  where  the  new 

-  word  is  has  been  time  warp  aligned  from  the  known  word  to  the  unknown 

-  word 

-  [formal  parameters] 

-  [design] 

-  [q)tional  subprogram  tags] 

-  RETURN  VALUE: 

-  {tbs} 

funcUcn  TIME_WARP_ALIGNMENT  (KNOWN_WORD,  UNKNOWN_WORD :  in  WORD_TYPE) 
return  WORD_TYPE; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  procedure  creates  an  error  surface  and  writes  it  to  a  file 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  OUTPUT_ERROR_SURFACE  (WORD_NAMEl,  WORD_NAME2,  HLE.NAME :  in 
VAR_STRING); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  procedure  creates  a  template  from  a  list  of  prefixes  using 

-  time  warp  alignment 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  CREATE_TW_TEMPLATE  (PREFIX_OUT.  WORD_NAME :  in  VAR_STRING); 

-  ++ 


219 


-  FUNCTIONAL  DESCRIPTION: 


This  procedure  updates  a  new  set  of  words  into  a  template 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 


procedure  UPDATE_TW_TEMPLATE  (PREHXJN,  PREFIX_OUT,  WORD_NAME  :  in 
VAR_STRING; 

TEMPLATE_FACTOR :  in  FLOAT); 

LIBRARY.HEAD,  LIBRARY.TAIL :  WORD_LIST.LIST; 

TEMPLATE_HEAD,  TEMPLATE_TAIL ;  WORD_LIST.LIST; 

end  REC_SUPPORT_PACKAGE; 
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package  body  REC_SUPPORT_PACKAGE  is 
-++ 

-  DESIGN: 

-  {tbs} 

TEST_FILE :  HLE.TYPE; 

procedure  GET  (WORD :  in  out  WORD_TYPE;  HLE :  in  VAR.STRING)  is 


-  FUNCTIONAL  DESCRIPTION: 

-  (tbs) 

-  FORMAL  PARAMETERS: 

{sublags) 

-  DESIGN: 

-  {tbs> 


THE_FILE :  FILE_TYPE; 

COUNTER  :  INTEGER  :=  0; 

A_SLICE :  SLICE_ARRAY_TYPE; 

begin 

OPEN( 

nLE=>THE_nLE, 

MODE  =>  IN.HLE, 

NAME=>  FILE); 

CLEAR_LIST(WORD.WORD_HEAD,WORD.WORD_TAIL); 
while  NOT  END_OF_FILE  (HLE  =>  THE_FILE)  ioqj 
COUNTER  :=  COUNTER  +  1 ; 
for  INDEX  in  L.NUMBER_OF_COMPONENTS  loop 
GET  (FILE  =>  THE_nLE,  ITEM  =>  A_SLICE(INDEX)); 
end  loop; 

ADD_TO(A_SLICE,WORD.WORD_HEAD.WORD.WORD_TAIL); 
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end  loop; 

CLOSE  (HLE  =>  THE_nLE); 

WORD.WORD_LENGTH  :=  COUNTER; 
end  GET; 

procedure  PUT  (WORD ;  in  WORD_TYPE;  FILE_NAME ;  in  VAR_STRING)  is 

-  [procedure_header_cornment] 

OUTPUT.HLE :  FBLE_TYPE; 

POINTER :  SLICE_LIST.LIST  :=  WORD.WORD_HEAD; 

A.SLICE :  SLICE_ARRAY_TYPE; 
begin 

CREATE  ( 

FILE  =>  OUTPUT_nLE, 

MODE  =>  OUT.HLE, 

NAME  =>  HLE.NAME); 
loop 

A_SLICE  :=  GET_NODE(POINTER); 

for  INDEX  in  1  ..NUMBER_OF_COMPONENTS  loc^ 

PUT  OFILE  =>  OUTPUT.HLE,  ITEM  =>  A_SLICE(INDEX), 

FORE=>6, 

AFT=>4, 

EXP«=>0); 

NEW.LINE  (FILE  =>  OUTPUT.HLE); 
end  loop; 

POINTER  :=  NEXT_LINK(POINTER); 
end  loop; 
exception 

when  SLICE_LIST.UNDER_FLOW  => 

CLOSE  (HLE  =>  OUTPUT_nLE); 
end  PUT, 

funcUon  TWO_DEE_EUCLIDIAN  (WORDl ,  WORD2  :  in  MATRIX_TYPE)  return  FLOAT  is 

-  [function_header_coniment] 

SUM  :  FLOAT  :=  0.0; 

begin 

for  ROW  in  0..nLTER-l  loop 
for  COLUMN  in  0..nLTER-l  loop 

SUM  ;=  SUM  +  (WORDl  (ROW,COLUMN)-WORD2(ROW,COLUMN))**2; 
end  loq); 
end  loqp; 

return  SQRT(SUM); 
end  TWO_DEE_EUCLIDIAN; 
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funcUoo  EUCLIDIAN_DISTANCE  (WORDl,  WORD2  :  in  SLICE_ARRAY_TYPE)  return  FLOAT  is 

-  [function_header_comnient] 

SUM :  FLOAT  ;=  0.0; 

begin 

for  INDEX  in  1  ..NUMBER_OF_COMPONENTS  loop 
SUM  :=  SUM  +  (WORDl (INDEX)  -  WORD2aNDEX))**2; 
end  loop; 

return  SQRT(SUM); 
end  EUCLIDIAN_DISTANCE; 

function  TIME_WARP  (KNOWN_WORD,  UNKNOWN_WORD :  in  WORD_TYPE)  return  FLOAT  is 

-  (function_header_comment] 

JUMP_UP,  JUMP_OVER,  JUMP_DIAGONAL,  JUMP_UP_DIAGONAL :  FLOAT; 

UP_POINTER.  RIGHT_POINTER ;  SLICE.LIST.LIST; 

DISTANCE ;  FLOAT  :=  0.0; 

NO_OVER  :  BCXDLEAN  :=  FALSE; 


begin 

SLICE_LIST.NULL_POINTER(UP_POINTER); 

SLICE_LIST.NULL_POINTER(RIGHT_POINTER); 

UP.POINTER  :=  KNOWN_WORD.WORD_HEAD; 

RIGHT_POINTER  :=  UNKNOWN_WORD.WORD_HEAD; 

DISTANCE  :=  EUCLIDIAN  DIS- 

TANCE(GET_n6dE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

RIGHT_POINTER  ;=  NEXT_LINK(UNKNOWN_WORD.WORD_HEAD); 
begin 

HORIZONTAL;  loop 
ifNO_OVERthen 

UP.POINTER  :=  NEXT_LINK(UP_POINTER); 

JUMP.DIAGONAL  :=  EUCLIDIAN.DIS- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

JUMP_UP_DIAGONAL  :=  EUCLIDIAN.DIS- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(UP_POINTER))); 

if  JUMP.DIAGONAL  <  JUMP_UP_DI  AGONAL  then 

DISTANCE  :=  DISTANCE  +  JUMP.DIAGONAL; 

else 

DISTANCE  ;=  DISTANCE  +  JUMP_UP_DIAGONAL; 

UP.POINTER  ;=  NEXT.LINK(UP.POINTER); 
end  if; 

NO.OVER  :=  FALSE; 
else 
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JUMP_OVER  :=  EUCLIDIAN_DIS- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

JUMP.DIAGONAL  :=  EUCLIDIAN_DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(UP_POINTER))); 

JUMP_UP  DIAGONAL  :=  EUCLIDIAN_DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(NEXT_LINK(UP_POINTER)))); 
if  JUMP_OVER  <  JUMP_DIAGONAL  AND  JUMP_OVER  <  JUMP_UP_DIAGONAL  then 
DISTANCE  ;=  DISTANCE  +  JUMP_OVER; 

NO.OVER  ;=  TRUE; 

elsif  JUMP_DIAGONAL  <  JUMP_OVER  AND  JUMP_DI  AGONAL  <  JUMP_UP_DIAGONAL 

then 

DISTANCE  ;=  DISTANCE  +  JUMP_DIAGONAL; 

UP_POINTER  :=  NEXT_LINK(UP_POINTER); 
else 

DISTANCE  :=  DISTANCE  +  JUMP_UP_DIAGONAL; 

UP_POINTER  :=  NEXT_LINK(NEXT_LINK(UP_POINTER)); 

end  if; 
end  if; 

exit  HORIZONTAL  when  IS_NULL(NEXT_LINK(RIGHT_POINTER)); 

RIGHT_POINTER  :=  NEXT_LINK(RIGHT_POINTER); 
end  loop  HORIZONTAL; 
begin 
loc^ 

UP.POINTER  :=  NEXT_LINK(UP_POINTER); 

JUMP  UP  ;=  EUCLIDIAN  DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

DISTANCE  :=  DISTANCE  +  JUMP.UP; 

end  loop; 
exception 

PUT  (ITEM  =>  UNKNOWN_WORD.WORD_LENGTH); 

PUT  (ITEM  =>  KNOWN_WORD.WORD_LENGTH); 

PUT  (ITEM  =■>  DISTANCE, 

FORE  =>  4, 

AFT  =>4. 

EXP=>0); 

NEW.LINE; 

when  SLICE_LIST.UNDER_FLOW  => 
return  DISTANCE; 
end; 

excepticxi 

when  SLICE_LIST.UNDER_FLOW  => 
if  IS_NULL(NEXT_LINK(UP_POINTER))  then 
DISTANCE DISTANCE  +  JUMP_OVER; 

RIGHT.POINTER  :=  iVEXT_LINK(RIGHT_POINTER); 
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while  NOT  IS_NULL(RIGHT_POINTER)  loop 

JUMP.OVER  :=  EUCLIDIAN_DIS- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

DISTANCE  :=  DISTANCE  +  JUMP_OVER; 

RIGHT_POINTER  :=  NEXT_LINK(RIGHT_POINTER); 

end  loop; 

else 

GET_UP_LOOP:  loop 

JUMP_OVER  :=  EUCLIDIAN_DIS- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

JUMP.DIAGONAL  :=  EUCLIDIAN_DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(UP_POINTER))); 
if  JUMP_OVER  <  JUMP_DI AGONAL  then 
DISTANCE  :=  DISTANCE  +  JUMP_OVER; 
else 

DISTANCE  :=  DISTANCE  +  JUMP.DIAGONAL; 

UP.POINTER  ;=  NEXT_LINK(UP_POINTER); 
end  if; 

RIGHT_POINTER  :=  NEXT_LINK(RIGHT_POINTER); 

exit  GET_UP_LOOP  when  IS_NULL(RIGHT_POINTER)  OR 
IS_NULL(NEXT_LINK(UP_POINTER)); 

end  loop  GET_UP_LOOP; 

RNSHISH.LOOP:  while  NOT  IS_NULL(RIGHT_POINTER)  loop 

while  NOTIS_NULL(RlGHT_POINTER)  loop 

JUMP  OVER  :=  EUCLIDIAN.DIS- 
TANCE(GET_N0DE(RIGHT_P0INTER),GET_N0DE(UP_P01NTER)); 

DISTANCE  :=  DISTANCE  +  JUMP_OVER; 

RIGHT.POINTER  :=  NEXT_LINK(RIGHT_POINTER); 

end  loop; 

end  loop  HNSHISH.LOOP; 
end  if; 

PUT  (ITEM  =>  UNKNOWN_WORD.WORD_LENGTH); 

PUT  (ITEM  =>  KNOWN_WORD.WORD_LENGTH); 

PUT  (ITEM  =>  DISTANCE, 

FORE=>4, 

AFT=>4, 

EXP  =>  0); 

NEW_LINE; 
return  DISTANCE; 
end; 

end  TIME_WARP; 

funcUoo  RECOGNIZE  (NAME ;  in  VAR_STRING)  return  RESULT_RECORD_TYPE  is 
-  [function_header_comment] 
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UNKNOWN_WORD,  KNOWN_WORD :  WORD_TYPE; 

WORD.NAME,  TfflS_FEATURE,  UNKNOWN_WORD_NAME  :  VAR_STRING; 
WORD_POINTER :  WORD_LIST.LIST  :=  LIBRARY_HEAD; 
WORD_NAME_POINTER  :  DATABASE_UST.LIST  :=  DATABASE_HEAD; 
DTW_RESULTS :  RESULT_RECORD_TYPE; 

WORD_COUNT,  SMALLEST :  INTEGER  :=  0; 

DISTANCE,  NORMAL :  FLOAT  :=  0.0; 


begin 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_TAIL); 

SLICE_LIST.NULL_POINTER(KNOWN_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(KNOWN_WORD.WORD_TAIL); 

RESULT_LIST.NULL_POINTER(DTW_RESULTS.RESULT_HEAD); 

RESULT_LIST.NULL_POINTER(DTW_RESULTS.RESULT_TAIL); 

ASSIGN(THIS_FEATURE,NAME_OF_FEATURE); 

UNKNOWN_WORD_NAME  :=  DIRECTORY_NAME&NAME&”.”&THIS_FEATURE; 
GET(UNKNOWN_WORD,UNKNOWN_WORD_NAME); 

RESULT_LIST.CLEAR_LIST(DTW_RESIJLTS.RESULT_HEAD,DTW_RESULTS.RESULT_TAIL); 

begin 

loop 

NEXT_WORD(WORD_NAME,WORD_NAME_POINTER); 

WORD.COUNT  :=  WORD_COUNT  +  1 ; 

GET.WORD:  loop 

KNOWN_WORD  :=  GET_NODE(WORD_POINTER); 

WORD_POINTER  :=  NEXT_LINK(WORD_POINTER); 
exit  GET.WORD  when  IS_EQUAL(KNOWN_WORD.WORD_NAME,WORD_NAME); 
end  loop  GET_WORD; 

DISTANCE  :=  TIME_WARP(KNOWN_WORD,  UNKNOWN_WORD); 

RESULT_LIST.ADD_TO(DISTANCET)TW_RESULTS.RESULT_HEAD,DTW_RESULTS.RE- 

SULTJTAIL); 

NORMAL  :=  NORMAL  +  DISTANCE**2; 

end  loop; 
exception 

when  DATABASE_LIST.UNDER_FLOW  -> 

NULL; 

end; 

NORMAL  :=  SQRT(NORMAL); 

for  INDEX  in  1  ..WORD_COUNT  loop 

RESULT  LIST.REMOVE  NEXT_NODE(DISTANCEJ)TW_RESULTS.RE- 
SULT_HEAD,DTW_RESULTS.RESULT_TAIL); 

DISTANCE DISTANCE/NORMAL; 
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RESULT_LISTADD_TO(DISTANCE,DTW_RESULTS.RESULT_HEAD,DTW_RESULTS.RE- 

SULT_TAIL); 

end  loq); 

return  DTW_RESULTS; 
end  RECOGNIZE; 

procedure  TWO_DEE_FFT  (IMAGE  :  in  MATRIX_TYPE; 

HEIGHT,  WIDTH :  in  INTEGER; 

COEFF  :  in  out  MATRIX_TYPE)  is 
-  ++ 

-  FUNCTIONAL  DESCRIPTION; 

-  <tbs} 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE; 

-  {tbs} 


NORM.  COSSIN_TERM,  HIGH,  TEMPK,  TEMPL,  ACROSS.  DC.TERM ;  FLOAT; 

PI;  FLOAT;- 3.1415; 
begin 

HIGH  ;=  2.0  *  PI  /  FLOAT(HEIGHT); 

ACROSS  ;-  2.0  *  PI  /  FLOAT(WIDTH); 
for  INDEX  in  0.  .FILTER- 1  loop 
for  INDEX  1  in  0..FILTER-1  loop 
COEFF(INDEXJNDEXl)  ;=  0.0; 

end  loop; 
end  loop; 

for  K  in  0..ORDER-1  loop 
for  L  in  0..FILTER-1  loop 
TEMPK  ;=  FLOAT(K-ORDER)*HIGH; 

TEMPL  ;=  FLOAT(L-ORDER)*ACROSS; 
for  I  in  0..HEIGHT-1  loop 
forJin0..WEDTH-l  loop 

COSSIN_TERM ;-  FLOAT(D*TEMPK-FLOAT(J)*TEMPL; 

COEFF(KJL) COEFF(K,L)  +  IMAGEa+U+D  *  COS(COSSIN_TERM); 
COEFFCFILTER-1-KJ-)  ;-  COEFF(FILTER-l-K.L)  +  IMAGE(I+1  J+1)  *  SIN(COSSIN_TERM); 
end  loop; 
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end  loop; 
end  loc^; 
end  loq); 

for  L  in  O..ORDER-1  loop 
TEMPL  :=  FLOAT(L-ORDER)  ♦  ACROSS; 
for  I  in  0..HEIGHT-1  loq) 
forJmO..WIDTH-lloop 
COSSIN_TERM  :=  -FLOAT(J)  *  TEMPL; 

COEFF(ORDERX)  :=  COEFF(ORDER,L)  +  IMAGE(I+1  J+1)  *  COS(COSSIN_TERM); 

COEFF(ORDER,FETER-l-L)  :=  COEFF(ORDERTTLTER-l-L)  +  IMAGE(I+1  J+1)  * 
SIN(COSSIN_TERM); 

end  loop; 
end  loop; 
end  loop; 

DC_TERM;=0.0; 
forIinO..HEIGHT-l  loq) 
forJinO..WroTH-l  loop 
if  1MAGE(I+ 1 J+ 1)  =  1 .0  then 
DC_TERM  ;=  DC_TERM  +  1 .0; 
end  if; 
end  loop; 
end  loq); 

COEFF(ORDER.ORDER)  DC.TERM; 

NORM  :=0.0; 
for  K  in  0.. FILTER- 1  loop 
for  L  in  0..FILTER-1  loop 
NORM  :=  NORM  +  COEFF(K,L)**2; 
end  loop; 
end  loop; 

NORM  :=  SQRT(NORM); 
for  K  in  0..FILTER-1  loop 
for  L  in  0..FILTER-1  loop 
COEFFCKJ.)  ;=  COEFF(K,LyNORM; 
end  loop; 
end  loop; 

end  TWO_DEE_FFT; 

funcUon  RECOGNIZE_TWO_DEE  (NAME ;  in  VAR_STRING)  return  RESULT_RECORD_TYPE  is 
-  [function_header_comment] 

UNKNOWN_LF_MATRIX,  KNOWN_LF_MATRIX  ;  MATRIX_TYPE(0..FILTER-l,0..nLTER-l); 
UNKNOWN_WORD,  KNOWN.WORD :  WORD_TYPE; 
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WORD_NAME,  THIS_FEATURE,  UNKNOW N_WORD_NAME  :  VAR_STRING; 
WORD_POINTER :  WORD_LIST.LIST  :=  LIBRARY_HEAD; 
WORD_NAME_POINTER  :  DATABASE_LIST.LIST  :=  DATABASE.HEAD; 
SLICE_POINTER ;  SLICE_LIST.LIST; 

A_TIME_SLICE :  SLICE_ARRAY_TYPE; 

TDD_RESULTS ;  RESULT_RECORD_TYPE; 

DISTANCE,  NORMAL :  FLOAT  :=  0.0; 

WORD_COUNT,  SMALLEST,  SLICE_COUNTER :  INTEGER  :=  0; 
begin 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_TAIL); 

SLICE_LIST.NULL_POINTER(KNOWN_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(KNOWN_WORD.WORD_TAIL); 

RESULT_LIST.NULL_POINTER(TDD_RESULTS.RESULT_HEAD); 

RESULT_LIST.NULL_POINTER(TDD_RESULTS.RESULT_TAIL); 

SLICE_LIST.NULL_POINTER(SLICE_POINTER); 

ASSIGN(THIS_FEATURE,NAME_OF_FEATURE); 

UNKNOWN_WORD_NAME  :=  DIRECTORY_NAME&NAME&”.”&TfflS_FEATURE; 

GET(UNKNOWN_WORD,UNKNOWN_WORD_NAME); 

declare 

NEW  WORD:  MATRIX_TYPE(l..NUMBER_OF  COMPONENTS,  1..UN- 
KNOWN_WORD.WORD_LENGTH); 

begin 

begin 

SLICE_COUNTER  :=  I; 

SLICE.POINTER  :=  UNKNOWN_WORD.WORD_HEAD; 

Icx^ 

A_TIME_SLICE  :=  GET_NODE(SLICE_POINTER); 
for  INDEX  in  I  ..NUMBER_OF_COMPONENTS  loop 
NEW_WORD(INDEX,SLICE_COUNTER)  :=  A_TIME_SL1CE(INDEX); 
end  loop; 

SLICE_POINTER  :=  NEXT_LINK(SLICE_POINTER); 

SLICE_COUNTER  ;=  SLICE_COUNTER  +  1; 

end  loop; 
exception 

when  SLICE_LIST.UNDER_FLOW  => 

NULL; 

end; 

TWO_DEE_FFT(NEW_WORDJsrUMBER_OF_COMPONENTS,UN- 
KNOWN_WORD.WORD_LENGTH,UNKNOWN_LF_MATRIX  ); 

end; 

begin 

loop 
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NEXT_WORD(WORD_NAME,WORD_NAME_POINTER); 

WORD_COUNT  :=  WORD.COUNT  +  1 ; 

GET_WORD:  lcx)p 

KNOWN_WORD  ;=  GET_NODE(WORD_POINTER); 

WORD_POINTER  :=  NEXT_LINK(WORD_POINTER); 
exit  GET_WORD  when  IS_EQUAL(KNOWN_WORD.WORD_NAME.WORD_NAME); 
end  loop  GET.WORD; 

KNOWN_WORD  :=  TIME_WARP_ALIGNMENT(KNOWN_WORD,  UNKNOWN_WORD); 
declare 

NEW_WORD :  MATRIX_TYPE(l..NlJMBER_OF_COMPO- 
NENTS,  1  ..KNOWN_WORD.WORD_LENGTH); 

begin 

begin 

SLICE.COUNTER  :=  1; 

SLICE_P01NTER  ;=  KNOWN_WORD.WORD_HEAD; 
loop 

A_TIME_SLICE  :=  GET_N0DE(SLICE_P01NTER); 
for  INDEX  in  1  ..NUMBER_OF_COMPONENTS  locp 
NEW_WORD(INDEX,SLICE_COUNTER)  :=  A_TIME_SLICE(INDEX); 
end  loop; 

SLICE.POINTER  :=  NEXT_LINK(SLICE_POINTER); 

SLICE.COUNTER  ;=■  SLICE_COUNTER  +  1; 
end  loop; 
exception 

when  SLICE_LIST.UNDER_FLOW=> 

NULL; 

end; 

TWO_DEE_FFT(NEW_WORDJWMBER_OF_COMPO- 
NENTS.KNOWN_WORD.WORD_LENGTH,KNOWN_LF_MATRIX  ); 

end; 

DISTANCE  TWO_DEE_EUCLIDIAN(KNOWN_LF_MATRIX,UNKNOWN_LF_MATRIX); 

RESULT_LIST.ADD_T0(DISTANCE,TDD_RESULTS.RESULT_HEAD,TDD_RESULTS.RE- 

SULT_TAIL); 

NORMAL  :=  NORMAL  +  DISTANCE**2; 

end  loop; 
exception 

when  DATABASE_LIST.UNDER_FLOW  => 

NULL; 

end; 

NORMAL  :=  SQRT(NORMAL); 

for  INDEX  in  1 ..  WORD_COUNT  loop 

RESULT_LIST.REMOVE_NEXT_NODE(DISTANCE,TDD_RESULTS.RE- 

SULT_HEAD,TDD_RESULTS.RESULT_TAIL); 
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DISTANCE  :=  DISTANCE/NORMAL; 

RESULT_LIST.ADD_TO(DISTANCE.TDD_RESULTS.RESlTLT_iiEAD,TDD_RESULTS.RE- 

SULT_TAIL); 

end  loop; 

return  TDD_RESULTS; 
end  RECOGNIZE_TWO_DEE; 


procedure  (JPDATE_WORD_LIST  is 
-  [procedure_header_comment] 

COUNT :  INTEGER  :=  0; 

THE.WORD :  WORD_TYPE; 

FILE_NAME,  PERIOD,  NEXT_WORD_NAME,  THIS.FEATURE  :  VAR_STRING; 
WORD_POINTER  :  DATABASE.LIST.LIST  :=  DATABASE_HEAD; 
begin 

CLEAR_LIST(LIBRARY_HEAD.LIBRARY_TAIL); 

SLICE_LIST.NULL_POINTER(THE_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(THE_WORD.WORD_TAlL); 

ASSIGN(THIS_FEATURE.NAME_OF_FEATURE); 

loop 

NEXT_WORD(NEXT_WORD_NAME.WORD_POINTER); 

COUNT  ;=  COUNT  +  1; 

HLE  NAME  >  DIRECTORY  NAME&LIBRARY_PRE- 
nX&NEXT_WORD_NAME&”.”&THIS_FEATURE; 

GET(THE_WORD.nLE_NAME); 

THE_WORD.WORD_NAME  :=  NEXT_WORD_NAME; 

ADD_TO(THE_WORD.LIBRARY_HEAD,LIBRARY_TAIL); 

end  loop; 

exception 

when  DATABASE_LIST.UNDER_FLOW  => 

SET_WORD_COUNT(COUNT); 
end  UPDATE_WORD_LIST; 


procedure  GET  (WORD  :  in  out  WORD.TYPE;  RLE :  in  VAR.STRING; 
COMPONENTS,  COMPONENTS.POINTER :  INTEGER; 
nRST_PASS :  BOOLEAN)  is 


THE.RLE ;  FILE_TYPE; 
COUNTER  :  INTEGER  :=  0; 
A_SLICE :  SLICE. ARRAY_TYPE; 
begin 
OPEN( 

FILE  =>  THE.RLE, 

MODE  =>  IN.HLE, 
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NAME  =>  HLE); 
loop 

if  NOT  FIRST_PASS  then 

REMOVE_NEXT_NOri  v-  -  .Sl.ICE, WORD.  WORD_HEAD, WORD.  WORD_TAIL); 
end  if; 

COUNTER  :=  COUNTER  +  1; 

for  INDEX  in  COMPONENTS_POINTER..COMPONENTS_POINTER+COMPONENTS-l  locp 
GET  (RLE  =>  THE.RLE,  ITEM  =>  A_SLICE(INDEX)); 
end  loop; 

ADD_TO(A_SLICE,WORD.WORD_HEAD,WORD.WORD_TAIL); 
end  loqj; 
exception 
when  end_error  => 

CLOSE  (RLE  =>  THE_FILE); 

WORD.WORD.LENGTH  ;=  COUNTER; 
end  GET; 


procedure  CREATE_FUSION_WORD_LIST  (FUSION_FEATURE_HEAD,  FUS10N_FEA- 
TURE_TAIL :  in  out  FUSED_FEATURE_LIST.L1ST)  is 

-  [procedure_header_comment] 

COUNT,  COMPONENTS.COUNT ;  INTEGER; 

WORD_POINTER :  DATABASE_LIST.LIST; 

FEATURE_POINTER  ;  FUSED_FEATURE_LIST.LIST  :=  FUSION_FEATURE_HEAD; 
FEATURE.VARIABLE  :  FEATURE_RECORD_TYPE; 

THIS  FEATURE,  NEXT  FEATURE  NAME,  NEXT_WORD_NAME,  FILE.NAME  : 
VAR_STRING; 

FUSED_WORD :  WORD_TYPE; 

RJSED_RLE ;  RLE_TYPE; 
begin 

SLICE_LIST.NULL_POINTER(FUSED_WORD.WORD_HEAD); 

SLICE_LIST.NULL  POINTER(FUSED_WORD.WORD_TAIL); 

DATABASE_LIST.NULL_POINTER(WORD_POINTER); 

ASSIGr-;(THIS_FEATURE,NAME_OF_FEATURE); 

COMPONENTS.COUNT  ;=  1; 

FEATURE_VARIABLE  ;=  FUSED_FEATURE_LlST.GET_NODE(FEATURE_POINTER); 
WORD_POINTER  :=  DATABASE_HEAD; 

COUNT  :=  0; 
begin 
loop 

CLEAR_LIST(FUSED_WORD.WORD_HEADJFUSED_WORD.WORD_TAIL); 

NEXT_WORD(NEXT_WORD_NAME,WORD_POINTER); 

COUNT  :=  COUNT  +  1; 
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HLE.NAME  :=  DIRECTORY_NAME&LIBRARY_PREnX&NEXT_WORD_NAME&”.”&FEA- 
TITIE.VARIABLE.NAME; 

GET(FUSED_WORD,nLE_NAME,FEATURE_VARIABLE.COMPONENTS, 

COMPONENTS_COUNT,TRUE); 

ADD_TO(FUSED_WORD,LroRARY_HEAD,LIBRARY_TAIL); 

end  lcx)p; 
exception 

when  DATABASE_LIST.UNDER_FLOW  => 

COMPONENTS_COUNT  ;=  COMPONENTS_COUNT  +  FEATURE_VARIABLE.COMPO- 

NENTS; 

FEATURE_POINTER  :=  FUSED_FEATURE_LIST.NEXT_LINK(FEATURE_POINTER); 

end; 

loop 

FEATURE_VARIABLE  :=  FUSED_FEATURE_LIST.GET_NODE(FEATURE_POINTER); 
WORD_POINTER  ;=  DATABASE_HEAD; 
begin 
loop 

CLEAR_LIST(FUSED_WORD.WORD_HEAD,FUSED_WORD.WORD_TAIL); 

NEXT_WORD(NEXT_WORD_NAME.WORD_POINTER); 

HLE.NAME  :=  DIRECTORY  NAME&LIBRARY_PREFIX&NEXT_WORD_NAME&”.”&FEA- 
TURE.VARIABLE.NAME; 

REMOVE_NEXT_NODE(FUSED_WORD,LIBRARY_HEAD,LIBRARY_TAIL); 

GET(FUSED_WORD,nLE_NAME,FEATURE_VARIABLE.COMPONENTS, 

COMPONENTS_COUNTJ?ALSE); 

ADD_T0(FUSED_W0RD,LIBRARY_HEAD,LIBRARY_TAIL); 

end  loop; 
exception 

when  DATABASE_LIST.UNDER_FLOW  => 

COMPONENTS.COUNT  :=  COMPONENTS_COUNT+FEATURE_VARIABLE.COMPO- 

NENTS; 

FEATURE_POINTER  :=  FUSED_FEATURE_LIST.NEXT_LINK(FEATURE_POINTER); 
end; 

end  loop; 
exception 

when  FUSED_FEATURE_LIST.UNDER_FLOW  => 

SET_WORD_COUNT(COUNT); 
end  CREATE_FUSION_WORD_LIST; 

procedure  CREATE_FUSION_WORD  (WORD.NAME :  in  VAR_STRING; 

FUSION_FEATURE_HEAD,  FUSION_FEATURE_TAIL ;  in  out  FUSED_FEATURE_LIST.LIST) 
is 

-  [procedure_header_comment] 

COUNT,  COMPONENTS_COUNT :  INTEGER; 

FEATURE.POINTER  :  FUSED_FEATURE_LIST.LIST  :=  FUSION_FEATURE_HEAD; 
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FEATURE_VARIABLE  :  FEATURE_RECORD_TYPE; 

THIS.FEATURE,  NEXT_FEATURE_NAME,  nLE_NAME  :  VAR_STRING; 

FUSED_WORD ;  WORD_TYPE; 

FUSED.HLE :  HLE.TYPE; 
begin 

SLICE_LIST.NULL_POINTER(FUSED_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(FUSED_WORD.WORD_TAIL); 

COMPONENTS_COUNT  :=  1; 

FEATURE_VARIABLE  ;=  FUSED_FEATURE_LIST.GET_NODE(FEATURE_POINTER); 
PUT.LINE  (ITEM  =>  WORD_NAME); 

PUT_LINE  (ITEM  =>  FEATURE_VARIABLE.NAME); 

HLE.NAME  :=  DIRECTORY_NAME&LIBRARY_PREnX&WORD_NAME&”.”&FEA- 
TURE_VARIABLE.NAME; 

GET(FUSED_WORD,FILE_NAME,FEATURE_VARIABLE.COMPONENTS, 

COMPONENTS_COUNT,TRUE); 

COMPONENTS_COUNT  :=  COMPONENTS_COUNT  +  FEATURE_VARIABLE.COMPONENTS; 
FEATURE_POINTER  :=  FUSED_FEATURE_LIST.NEXT_LINK(FEATURE_POINTER); 
loop 

FEATURE_VARIABLE  :=  FUSED_FEATURE_LIST.GET_NODE(FEATURE_POINTER); 

RLE.NAME  ;=  DIRECTORY_NAME&LIBRARYJPREnX&WORD_NAME&”.”&FEA- 
TURE_VARIABLE.NAME; 

GET(FUSED_WORDJTLE_NAME,FEATURE_VARIABLE.COMPONENTS, 

COMPONENTS.COUNTEALSE); 

COMPONENTS.COUNT  :=  COMPONENTS_COUNT+FEATURE_VARIABLE.COMPONENTS; 
FEATURE_POINTER  :=  FUSED_FEATURE_LIST.NEXT_LINK(FEATURE_POINTER); 
end  loop; 
exception 

when  FUSED_FEATURE_LIST.UNDER_FLOW=> 
ASSIGN(THIS_FEATURE,NAME_OF_FEATURE); 

HLE.NAME  :=  DIRECTORY_NAME&LIBRARY_PREnX&WORD_NAME&”.”&TfflS_FEA- 

TURE; 

PUT(FUSED_WORD,nLE_NAME); 
end  CREATE_FUSION_WORD; 

funcUon  TIME_WARP_ALIGNMENT(KNOWN_WORD,  UNKNOWN.WORD :  in  WORD_TYPE) 
return  WORD_TYPE  is 

-  [functicai_header_coniment] 


JUMP_UP.  JUMP.OVER,  JUMP_DIAGONAL.  JUMP_UP_DIAGONAL :  FLOAT; 
UP.POINTER,  RIGHT_POINTER :  SLICE_LIST.LIST; 

DISTANCE :  FLOAT  ;=  0.0; 

NO.OVER  :  BOOLEAN  :=  FALSE; 

NEW_WORD ;  WORD.TYPE; 
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begin 

SLICE_LIST.NULL_POINTER(NEW_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(NEW_WORD.WORD_TAIL); 

SLICE_LIST.NULL_POINTER(UP_POINTER); 

SLICE_LIST.NULL_POINTER(RJGHT_POINTER); 

CLEAR_LIST(NEW_WORD.WORD_HEAD,NEW_WORD.WORD_TAIL); 
NEW_WORD.WORD_NAME  :=  KNOWN_WORD.WORD_NAME; 
NEW_WORD.WORD_LENGTH  :=  lJNKNOWN_WORD.WORD_LENGTH; 

UP_POINTER  :=  KNOWN_WORD.WORD_HEAD; 

RIGHT_POINTER  :=  UNKNOWN_WORD.WORD_HEAD; 

SLICE_LIST.ADD_TO(GET_NODE(UP_POINTER)JNEW_WORD.WORD  HEAD,NEW_WORD. 
WORD_TAIL): 

RIGHT_POINTER  :=  NEXT_LINK(UNKNOWN_WORD.WORD_HEAD); 
begin 

HORIZONTAL:  loop 
ifNO.OVERthen 

UP_POINTER  :=  NEXT_LINK(UP_POINTER); 

JUMP  DIAGONAL  :=  EUCLIDIAN.DIS- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

JUMP.UP  DIAGONAL  :=  EUCLIDIAN.DIS- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(UP_POINTER))); 

if  JUMP_DIAGONAL  <  JUMP_UP_DI AGONAL  then 

NULL; 

else 

UP.POINTER  ;=  NEXT_LINK(UP_POINTER); 
end  if; 

NO_OVER  :=  FALSE; 
else 

JUMP_OVER  ;=  EUCLIDIAN_DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

JUMP_DIAGONAL  :=  EUCLIDIAN.DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(UP_POINTER))); 
JUMP_UP_DIAGONAL  :=  EUCLIDIAN.DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(NEXT_LlNK(UP_POINTER)))); 
if  JUMP_OVER  <  JUMP_DIAGONAL  AND  JUMP_OVER  <  JUMP_UP_DIAGONAL  then 
NO.OVER  :=  TRUE; 

elsif  JUMP.DIAGONAT.  <  JUMP_OVER  AND  JUMP_DIAGONAL  <  JUMP_UP_DIAGONAL 

then 

UP_POINTER  NEXT_LINK(UP_POINTER); 
else 

UP_POINTER  :=  NEXT_LINK(NEXT_LINK(UP_POINTER)); 
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end  if; 
end  if; 

SLICE  LIST.ADD_TO(GET_NODE(UP_POINTER)^W_WORD.WORD_HEADJ^W_WORD. 
WORD.TAIL); 

exit  HORIZONTAL  when  IS_NULL(NEXT_LINK(RIGHT_POINTER)); 

RIGHT_POINTER  ;=  NEXT_LINK(RIGHT_POINTER); 
end  loq)  HORIZONTAL; 
return  NEW_WORD; 
excepticm 

when  SLICE_LIST.UNDER_FLOW  => 
if  IS_NULL(NEXT_LINK(UP_POINTER))  then 
whUe  NOT  IS_NULL(RIGHT_POINTER)  loq) 

SLICE  LIST.ADD_TO(GET_NODE(UP_POINTER)d^W_WORD.WORD_HEAD,NEW_WORD. 
WORD.TAIL); 

RIGHT_POINTER  :=  NEXT_LINK(RIGHT_POINTER); 
end  loop; 
else 

GET_UP_LOOP:  loop 

JUMP  OVER  :=  EUCLIDIAN_D1S- 
TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(UP_POINTER)); 

JUMP_DIAGONAL  :=  EUCLIDIAN.DIS- 

TANCE(GET_NODE(RIGHT_POINTER),GET_NODE(NEXT_LINK(UP_POINTER))); 
if  JUMP_OVER  <  JUMP_DIAGONAL  then 
NULL; 
else 

UP_POINTER  ;=  NEXT_LINK(UP_POINTER); 
end  if; 

SLICE_LIST.ADD_TO(GET_NODE(UP_POINTER).NEW_WORD.WORD_HEAD,NEW_WORD. 

WORD_TAIL); 

RlGHT_POINTER  :=  NEXT_LINK(RIGHT_POINTER); 

exit  GET_UP_LOOP  when  IS_NULL(RIGHT_POINTER)  OR 
IS_NULL(NEXT_LINK(UP_POINTER)); 

end  loop  GET_UP_LOOP; 

RNSmSH.LOOP:  while  NOT  IS_NULL(RIGHT_POINTER)  loop 
while  NOT  IS_NULL(RIGHT_POINTER)  loop 

SLICE_L1ST.ADD_TO(GET_NODE(UP_POINTER)JIEW_WORD.WORD_HEADJ^W_WORD.WOR 

D_TAIL); 

RIGHT_POINTER  :=  NEXT_LINK(RIGHT_POINTER); 
end  loop; 

end  loop  HNSHISH.LOOP; 
end  if; 

return  NEW_WORD; 
end; 

end  TIME_WARP_ALIGNMENT; 
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procedure  ERROR_SURFACE  (WORDl,  WORD2  :  in  WORD_TYPE;  ERROR :  out  MATRIX_TYPE) 
is 

-  [procedure_header_comment] 

POINTERl  :  SLICE_LIST.list  :=  WORDl. WORD_HEAD: 

POINTER2  :  SLICE_LIST.list  :=  WORD2.WORD_HEAD; 

SLICEl,  SLICE2 :  SLICE_ARRAY_TYPE; 
begin 

forlNDEXl  in  l..WORDl.WORD_LENGTH  locp 
SLICEl  :=GET_NODE(POINTERl); 

POINTERl  :=  NEXT_UNK(POINTERl); 
fa-  INDEX2  in  1  ..WORD2.WORD_LENGTH  loop 
SLICE2  :=  GET_NODE(POINTER2); 

POINTER2  :=  NEXT_LINK(POINTER2); 

ERROR(INDEXl.INDEX2)  :=  EUCLIDIAN_DISTANCE(SLICE1,SLICE2); 
end  loop; 

POINTER2  :=  WORD2.WORD_HEAD; 
end  loop; 
exception 

when  SLICE_LIST.UNDER_FLOW  => 

PUT.LINE  (ITEM  =>  “ERROR  IN  SLICE  COUNTING  SOMEWHERE”); 
end  ERROR.SURFACE; 

procedure  PRINT  ERROR  SURFACE  (WORDl,  WORD2  :  in  WORD.TYPE;  FILE.NAMEl, 
nLE_NAME2  ;  in  VAR_STRING)  is 

-  [procedure_header_comment] 

LF_MATRIX  :  MATRIX_TYPE(0..nLTER-l,0..nLTER-l); 

POINTERl  :  SLICE_LIST.list  :=  WORDl.WORD_HEAD; 

POINTER2  ;  SLICE_LIST.list  :=  WORD2.WORD_HEAD; 

SLICEl,  SLICE2  :  SLICE. ARRAY.TYPE; 

OUTPUT.HLE :  FILE.TYPE; 

ERROR.VALUE :  FLOAT; 
begin 
declare 

ERROR.MATRIX :  MA- 

TRIX_TYPE(  1  ..WORD  1 .  WORD.LENGTH,  1 ..  WORD2.WORD_LENGTH); 
begin 

CREATE  ( 

RLE  =>  OUTPUT.FILE, 

MODE=>OUT_FILE, 

NAME  ->  RLE.NAMEl); 

PUT  (RLE  =>  OUTPUT.FILE,  ITEM  ->  WORD2.WORD_LENGTH); 

NEW.LINE  (FILE  ->  OUTPUT.FILE,  SPAONG  =>  1); 


237 


for  INDEX  1  in  1. . WORD l.WORD_LENGTH  loop 
SLICEl  ;=GET_NODE(POINTERl); 

POINTERl  :=NEXT_LINK(POINTERl); 
for  INDEX2  in  l..WORD2.WORD_LENGTH  loop 
SLICE2  :=  GET_NODE(POINTER2); 

POINTER2  ;=  NEXT_LINK(POINTER2); 

ERROR_MATRIXaNDEXl,INDEX2)  :=  EUCLIDIAN_DISTANCE(SLICE1,SLICE2); 

PUT  (FILE  =>  OUTPUT_nLE.  ITEM  =>  ERROR_MATRIX(INDEXUNDEX2), 
FORE=>3, 

AFT=>5, 

EXP  =>  0); 
end  loop; 

NEW_LINE  (FILE  =>  OUTPUT.HLE,  SPACING  =>  1); 

POINTER2  :=  WORD2.WORD_HEAD; 
end  loq); 

CLOSE  (HLE  =>  OUTPUT_nLE); 

TWO_DEE_FFT(ERROR_MA- 

TRIX.WORDl  .WORD_LENGTH,WORD2.WORD_LENGTHd.F_MATRIX  ); 

CREATE  ( 

HLE  =>  OUTPUT.HLE, 

MODE=>OUT_FILE. 

NAME  =>  FILE_NAME2); 
for  INDEX  1  in  0.  .FILTER- 1  loop 
for  INDEX2  in  0..nLTER-l  loop 

PUT  (HLE  =>  OUTPUT.HLE,  ITEM  =>  LF.MATRIXGNDEXl  JNDEX2), 

FORE  =>  8, 

AFT=>8, 

EXP=>0); 
end  loop; 

NEW_LINE  (FILE  =>  OUTPUT_FILE,  SPACING  =>  1); 
end  loop; 

CLOSE  (HLE  =>  OUTPUT_nLE); 
end; 

end  PRINT_ERROR_SURFACE; 

procedure  OUTPUT_ERROR_SURFACE  (WORD_NAMEl,  WORD_NAME2,  FILE_NAME :  in 
VAR_STRING)  is 

-  [procedure_header_comment] 

WORDl ,  WORD2,  UNKNOWN_WORD :  WORD_TYPE; 

THIS_FEATURE,  WORD_NAME :  VAR.STRING; 

begin 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_TAIL); 
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SLICE_LIST.NULL_POINTER(WORDl.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(WORDl.WORD_TAlL); 

SLICE_LIST.NULL_POINTER(WORD2.WORD_HEAD); 

SLICE_LISTJSnjLL_POINTER(WORD2.WORD_TAIL); 

ASSlGN(THIS_FEATURE,NAME_OF_FEATURE); 

WORD_NAME  :=  DIRECTORY_NAME&WORD_NAMEl&”.”&TfflS_FEATURE; 
GET(WORDl  ,WORD_NAME); 

WORD_NAME  :=  DIRECTORY_NAME&WORD_NAME2&”  ”&TfflS_FEATURE; 
GET(WORD2.WORD_NAME); 

PRINT_ERROR_SURFACE(WORD  1  ,WORD2  ”ER_”&nLE_NAME&”.”&TfflS_FEA- 
TURE.”LF_”&FILE_NAME&”.”&TfflS_FEATURE); 

end  OUTPUT_ERROR_SURFACE; 

functioi  REC0GN1ZE_ERR0R  (NAME :  in  VAR_STRING)  return  RESULT_RECORD_TYPE  is 
-  [function_header_coniment] 

TEST_LF_MATRIX,  LF_MATRIX  :  MATRIX_TYPE(0..nLTER-l,0..nLTER-l); 
UNKNOWN_WORD,  KNOWN_WORD ;  WORD_TYPE; 

WORD.NAME,  TfflS.FEATURE ;  VAR_STRING; 

WORD_POlNTER ;  WORD_LIST.LIST  :=  LffiRARY.HEAD; 

WORD_NAME_POINTER  :  DATABASE_LIST.LIST  ;=  DATABASE.HEAD; 

ER.RESULTS :  RESULT_RECORD_TYPE; 

DISTANCE,  NORMAL :  FLOAT  :=  0.0; 

WORD_COUNT.  SMALLEST ;  INTEGER  :=  0; 
begin 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(UNKNOWN_WORD.WORD_TAIL); 

SLICE.LIST.Nin  t  POINTER(KNOWN_WORD.WORD_HEAD); 

SLICE_LIST.NULL_POINTER(KNOWN_WORD.WORD_TAIL); 

RESULT_LIST.NULL_POINTER(ER_RESULTS.RESULT_HEAD); 

RESULT_LIST.NULL_POINTER(ER_RESlJLTS.RESULT_TAIL); 

ASSIGN(THIS_FEATURE,NAME_OF_FEATURE); 

WORD_NAME  :=  DIRECTORY_NAME&NAME&”.”&THIS_FEATURE; 

GET(UNKNOWN_WORD,WORD_NAME); 

declare 

ERROR.MATRIX :  MATRIX  TYPE(l..unknown_WORD.WORD_LENGTH.l..UN- 
KNOWN_WORD.WORD_LENGTH); 

begin 

ERROR_SURFACE(UNKNOWN_WORD,UNKNOWN_WORD,ERROR_MATRIX); 

TWO_DEE_FFT(ERROR_MArRIX,UNKNOWN_WORD.WORD_LENGTH,UN- 

KNOWN_WORD.WORD_LENGTH,TEST_LF_MATRIX); 

end; 

begin 
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loop 

NEXT_WORD(WORD_NAME,WORD_NAME_POINTER); 

WORD.COUNT  :=  WORD_COUNT  +  1 ; 

GET.WORD:  loop 

KNOWN_WORD  ;=  GET_NODE(WORD_POINTER); 

WORD.POINTER  :=  NEXT_LINK(WORD_POINTER); 
exit  GET_WORD  when  IS_EQUAL(KNOWN_WORD.WORD_NAME,WORD_NAME); 
end  loop  GET_WORD; 

KNOWN_WORD  :=  TIME_WARP_ALIGNMENT(KNOWN_WORD,UNKNOWN_WORD); 
declare 

ERROR.MATRIX :  MATRIX_TYPE(l..KNOWN_WORD.WORD_LENGTH,l..lTN- 
KNOWN_WORD.WORD_LENGTH); 

begin 

ERROR_SURFACE(KNOWN_WORD,UNKNOWN_WORD^RROR_MATRIX); 

TWO_DEE_FFT(ERROR_MATRIXdCNOWN_WORD.WORD_LENGTH.UN- 
KNOWN_WORD.WORD_LENGTHXF_MATRIX  ); 

end; 

DISTANCE  :=  TWO_DEE_EUCLIDIAN(TEST_LF_MATRIX,LF_MATRIX); 

RESULT_LIST.ADD_TO(DISTANCEJER_RESULTS.RESULT_HEAD,ER_RESULTS.RE- 

SULT_TAIL); 

NORMAL  :=  NORMAL  +  DISTANCE**!; 

end  loop; 
exception 

when  DATABASE_LIST.UNDER_FLOW  => 

NULL; 

end; 

NORMAL  :=  SQRT(NORMAL); 
for  INDEX  in  1 .. WORD.COUNT  loop 

RESULT_LIST.REM0VE_NEXT_N0DE(DISTANCE,ER_RESULTS.RESULT_HEAD,ER_RE- 

SULTS.RESULT_TAIL); 

DISTANCE  ;=  DISTANCE/NORMAL; 

RESULT_LIST.ADD_TO(DISTANCE£R_RESULTS.RESULT_HEADJER_RESULTS.RE- 

SULT_TAIL); 

end  loop; 

return  ER_RESULTS; 
end  RECOGNIZE_ERROR; 

function  “+”  (LEFT.  RIGHT :  in  SLICE_ARRAY_TYPE)  return  SLICE_ARRAY_TYPE  is 
-  [function_header_comment] 

NEW_SLICE :  SLICE_ARRAY_TYPE; 
begin 

for  INDEX  in  l..NUMBER_OF_COMPONENTS  loop 
NEW_SLICE(INDEX)  ;=  LEFTflNDEX)  +  RIGHT(INDEX); 
end  loop; 
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return  NEW_SLICE; 
end 

functicM  “+”  (LEFT,  RIGHT :  in  WORD_TYPE)  return  WORD_TYPE  is 

-  [funciion_header_ccanment] 

NEW_WORD :  WORD_TYPE; 

RIGHT_SLICE_POINTER,  LEFT_SLICE_POINTER :  SLICE_LIST.LIST; 
begin 

RIGHT_SLICE_POINTER  :=  RIGHT. WORD_HEAD; 

LEFT_SLICE_POINTER  :=  LEFT.WORD_HEAD; 
fcx-  INDEX  in  l..LEFT.WORD_LENGTH  loq) 

SLICE_LIST.ADD_TO(GET_NODE(LEFT_SLICE_POINTER)+GET_NODE(RIGHT_SLICE_POINTER 

)J^W_WORD.WORD_HEAD.NEW_WORD.WORD_TAIL); 

RIGHT_SLICE_POINTER  :=  NEXT_LINK(RIGHT_SLICE_POINTER); 

LEFT_SLICE_POINTER  :=  NEXT_LINK(LEFT_SLICE_POINTER); 

end  loop; 

NEW_WORD.WORD_LENGTH  :=  LEFT.WORD.LENGTH; 
return  NEW_WORD; 
end 

funcUon  (LEFT :  in  SLICE_ARRAY_TYPE;  RIGHT :  in  FLOAT)  return  SL1CE_ARRAY_TYPE  is 

-  [function_header_comment] 

NEW_SLICE :  SLICE_ARRAY_TYPE; 
begin 

for  INDEX  in  1  ..NUMBER_OF_COMPONENTS  loop 
NEW_SLICE(INDEX)  :=  LEFT(INDEX)  /  RIGHT; 
end  loop; 

return  NEW_SLICE; 
end  “/”; 

function  “/”  (LEFT ;  in  WORD.TYPE;  RIGHT :  in  FLOAT  )  return  WORD_TYPE  is 

-  [function_header_comtnent] 

NEW_WORD :  WORD_TYPE; 

LEFT_SLICE_POINTER :  SLICE_LIST.LIST; 
begin 

LEFT_SLICE_POINTER  :=  LEFT.WORD_HEAD; 
for  INDEX  in  1  ..LEFT.WORD_LENGTH  loop 

SLICE_LIST.ADD_TO(GET_NODEaEFr_SLICE_POINTERyRIGHTJ'IEW_WORD.WORD_HEAD,N 

EW_WORD.WORD_TAIL); 

LEFT_SLICE_POINTER NEXT_LINK(LEFT_SLICE_POINTER); 
end  loop; 
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NEW_WORD.WORD_LENGTH  :=  LEFT.WORD.LENGTH; 
return  NEW_WORD; 
end 


funcUon  (LEFT :  in  SLICE_ARRAY_TYPE;  RIGHT ;  in  FLOAT)  return  SLICE_ARRAY_TYPE  is 

-  [function_header_cc«nment] 

NEW_SLICE :  SLICE_ARRAY_TYPE; 

begin 

for  INDEX  in  l..NUMBER_OF_COMPONENTS  loop 
NEW_SLICE(INDEX)  :=  LEFT(INDEX)  *  RIGHT; 
end  loop; 

return  NEW_SLICE; 
end 

function  (LEFT :  in  WORD.TYPE;  RIGHT ;  in  FLOAT )  return  WORD_TYPE  is 

-  [function_header_cotnment] 

NEW_WORD :  WORD_TYPE; 

LEFT_SLICE_POINTER :  SLICE_LIST.LIST; 
begin 

LEFT_SLICE_POINTER  :=  LEFT.WORD.HEAD; 
for  INDEX  in  L.LEFT.WORD.LENGTH  loop 

SLICE  LIST.ADD  TO(GET  NODE(LEFT_SLICE  POINTER)*RIGHTJ4EW_WORD.WORD_HEADJ4 
EW_WORD.WORD_TAIL); 

LEFT_SLICE_POINTER  :=  NEXT_LINK(LEFT_SLICE_POINTER); 
end  loop; 

NEW_WORD.WORD_LENGTH  :=  LEFT.WORD.LENGTH; 
return  NEW_WORD; 
end 

procedure  COPY_WORDS  (WORDl,  WORD2  :  in  out  WORD_TYPE)  is 

-  [procedure_header_comnient] 
begin 

WORD2.WORD_LENGTH  :=  WORDl.WORD_LENGTH; 

SLICE_LIST.COPY_LIST(WORDl.WORD_HEAD,WORDl.WORD_TAIL,WORD2.WORD_HEAD 

,WORD2.WORD_TAIL); 

end  COPY.WORDS; 

procedure  CREATE_TW_TEMPLATE  (PREFIX.OUT,  WORD.NAME :  in  VAR_STRING)  is 

-  [procedure_header_comment] 

COUNT :  INTEGER 1; 

INPUT.HLE,  OUTPUT_FILE :  HLE.TYPE; 
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TfflS.PREHX,  HLENAME :  VAR_STRING; 

PREHX.POINTER :  PREFIX_LIST.LIST  :=  PREFEX.HEAD; 

TEMPLATE_WORD,  LONGEST_WORD.  OTHER.WORD :  WORD_TYPE; 

TEMPLATE_POINTER,  TEMPLATE.HEAD.  TEMPLATE_TAIL ;  WORD_LIST.LISP, 


begin 

begin 

THIS.PREFEX  :=  PREnX_LIST.GET_NODE(PREFIX_POINTER); 

PREHX.POINTER  :=  PREnX_LIST.NEXT_LINK(PREnX_POINTER); 

nLENAME  :=  DIRECTORY_NAME&TfflS_PREFIX&WORD_NAME&”.”&NAME_OF_FEA- 

TURE; 

GET(LONGEST_WORD,  HLENAME); 
loop 

THIS.PREHX  :=  PREnX_LIST.GET_NODE(PREnX_POINTER); 

PREFIX_POINTER  :=  PREnX_LIST.NEXT_LINK(PREnX_POINTER); 

COUNT  :=  COUNT  +  1; 

FILENAME  ;=  DIRECTORY_NAME&THIS_PREFIX&WORD_NAME&”.”&NAME_OF_FEA- 
TURE; 

GET(OTHER_WORD,  HLENAME); 

if  OTHER_WORD.WORD_LENGTH  >  LONGEST_WORD.WORD_LENGTH  then 
WORD_LIST.ADD_TOaONGEST_WORD,TEMPLATE_HEAD, TEMPLATE.  TAIL); 
COPY_WORDS(OTHER_WORD,LONGEST_WORD); 
else 

WORD_LIST.ADD_TO(OTHER_WORD.TEMPLATE_HEAD,TEMPLATE_TAlL); 
end  if; 
end  loop; 
exception 

when  PREnX_LIST.UNDER_FLOW  => 

TEMPLATE_POINTER  ;=  TEMPLATE_HEAD; 
COPY_WORDS(LONGEST_WORD,TEMPLATE_WORD); 
end; 
begin 
loc^ 

OTHER.WORD  ;=  GET_NODE(TEMPLATE_POINTER); 

TEMPLATE_POINTER  :=  NEXT_LINK(TEMPLATE_POINTER); 

OTHER_WORD  >  TIME_WARP_ALIGNMENT(OTHER_WORD,LONGEST_WORD); 
TEMPLATE_WORD  ;=  TEMPLATE_WORD  +  OTHER_WORD; 

end  loop; 
exception 

when  WORD_LIST.UNDER_FLOW  => 

TEMPLATE_WORD  :=  TEMPLATE_WORD  /  FLOAT(COUNT); 
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HLENAME  :=  DIRECTORY_NAME&PRE- 
nX_OUT&WORD_NAME&”.’&NAME_OF_FEATURE; 

end; 

PUT(TEMPLATE_WORD,  FILENAME); 
end  CREATE_TW_TEMPLATE; 


procedure  UPDATE_TW_TEMPLATE  (PREHXJN,  PREFIX_OUT,  WORD.NAME  :  in 
VAR.STRING; 

TEMPLATE_FACTOR :  in  FLOAT)  is 
-  [procedure_header_comment] 

COUNT :  INTEGER  :=  1; 

INPUT_FILE,  OUTPUT_FILE :  FILE_TYPE; 

THIS_PREnX,  RLENAME :  VAR_STRING; 

PREnX_POINTER  :  PREFIX_LIST.LIST  ;=  PRERX.HEAD; 

TEMPLATE.WORD,  LONGEST_WORD.OTHER_WORD :  WORD_TYPE; 

TEMPLATE_POINTER,  TEMPLATE_HEAD.  TEMPLATE_TAIL :  WORD_LIST.LIST; 


begin 

FILENAME  :=  DIRECTORY_NAME&PREnX_IN&.WORD_NAME&”.”&NAME_OF_FEATURE, 
GET(OTHER_WORD.  HLENAME); 

HLENAME  >  DIRECTORY_NAME<S:PREHX_OUT<feWORD_NAME&”.”&NAME_OF_FEA- 
TURE; 

GET(LONGEST_WORD,  nLENAME); 

OTHER_WORD  ;=  TIME_WARP_ALIGNMENT(OTHER_WORD.LONGEST_WORD); 

TEMPLATE.WORD  :=  (LONGEST.WORD  *  TEMPLATE_FACTOR  + 

OTHER.WG  RD)/(  1 .0+TEMPLATE_FACTOR); 

PUT(TEMPLATE_WORD.  RLENAME); 

end  UPDATE_TW_TEMPLATE; 


end  REC_SUPPORT_PACKAGE; 


244 


with  TEXTJO,  DATABASE_PACKAGE,  STRING_OPERATIONS,  LINKED_LIST,  FU- 
SION_REC_PACKAGE; 

use  TEXT_IO,  DATABASE_PACKAGE,  STRING.OPERATIONS,  FUSION_R£C_PACKAGE; 
package  HISION_PACKAGE  is 


-  PACKAGE  DESCRIPTION: 

-  THIS  PACKAGE  CONTAINS  THE  FUNCTION  AND  PROCEDURES  NECESSARY  FOR  FUSING 

-  AND  DISPLAYING  THE  RESULTS  FROM  MULTIPLE  FEATURE  AND  MULTIPLE  RECOG¬ 
NIZERS 


-  [optional  package  tags] 
use  FUSION_LIST; 


TIIE.FILE,  DUMMY :  VAK.STRING; 

REPORT_nLE :  HLE.TYPE; 

OUTPUT.CHANNEL :  OUTPUT_CHANNEL_TYPE; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  procedure  outputs  the  recognition  results  for  each  word  for 

-  a  speified  feature 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  FEATURE_RESULTS_OUTPUT(OUTPUT_CHANNEL :  in  OUTPUT_CHANNEL_TYPE; 
REPORT.RLE  :  in  out  HLE.TYPE); 


-  FUNCTIONAL  DESCRIPTION: 

This  procedure  ouputs  the  icc>.)gnition  results  fw  each  word  for 

-  all  features 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 
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procedure  ALL  FEATURE_RESULTS_OUTPUT  (OUTPUT.CHANNEL :  in  OUTPUT_CHAN- 
NEL_TYPE; 

REPORT.FTLE :  in  out  FILE.TYPE); 


-  FUNCTIONAL  DESCRIPTION: 

This  procedure  outputs  the  name  of  the  word  with  the  smallest 

-  recognition  distance  for  a  specific  feature 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  FEATURE_SMALLEST_RESULT  (OUTPUT_CHANNEL ;  m  OLrrPUT_CHAN- 
NEL_TYPE; 

REPORT_nLE  ;  in  out  HLE.TYPE); 


-  FUNCTIONAL  DESCRIPTION: 

The  pnocedute  outputs  the  name  of  the  word  with  the  smallest 


-  [formal  parameters] 

-  [design] 

-  [crptional  subprogram  tags] 

procedure  ALL_FEATURE  SMALLEST_RESULT  (OUTPUT_CHANNEL :  in  OUTPUT_CHAN- 
NEL_TYPE; 

REFORT_FlLE  :  in  out  HLE.TYPE); 

-  [procedure_header_comment] 
procedure  FUSION; 

-  [procedure_header_comment] 
procedure  FUSION_RESULT; 

-  [procedurp_header_comment] 
procedure  FUSION_CONTROL_PANEL; 

-  [procedure_header_comment] 

procedure  CREATE_SUBLIST(NUMBER_WORDS  :  in  INTEGER); 
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-  [function_header_comnient] 
functioi  AGREE  return  FLOAT; 


package  FLOATJO  is  new  TEXT_IO.FLOAT_IO  (FLOAT); 
package  INTEGERJO  is  nt  w  TEXT_IO.INTEGER_IO  (INTEGER); 

-  package  ENLTMERATION JO  is  new  TEXTJO.ENUMERATION JO  (FEATURE_NAME_TYPE); 

use  FLOATJO,  INTEGER  JO; 
end  FUSION_PACKAGE; 
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with  FLOAT_MATH_LIB; 
use  FLOAT_MATH_LIB; 
package  body  FUSION_PACKAGE  is 
-  [package_body_header_coniment] 

procedure  MATCH_FEATURE  GTEM.ONE,  ITEMJTWO ;  in  out  RESULT_RECORD_TYPE;  CON¬ 
TINUE  :  out  BOOLEAN)  is 

-  [procedure_header_coniment] 

begin 

if  ITEM_ONE.FEATURE_NAME  =  ITEM_TWO.FEATURE_NAME  then 

CONTINUE  ;=  FALSE; 

ITEM_TWO  :=  ITEM_ONE; 
else 

CONTINUE  :=  TRUE; 
end  if; 

end  MATCH_FEATURE; 


procedure  GET_FEATURE_NODE  is  new  FUSION_LIST.ITERATE_LIST  (PROCESS  => 
MATCH.FEATURE); 

procedure  FEATURE_RESULTS_OUTPUT  (OUTPUT.CHANNEL ;  in  OUTPUT_CHANNEL_TYPE; 

REPORT.HLE :  in  out  RLE.TYPE)  is 
-  (procedure_header_comment] 

RESULTS :  RESULT_RECORD_TYPE; 

WORD :  VAR_STRING; 

WORD_POINTER  ;  DATABASE.LIST.LIST  :=  DATABASE_HEAD; 

RESULTS.POINTER :  RESULT_LIST.LIST; 

DISTANCE :  FLOAT; 


begin 

RESULT_LlST.NULL_POINTER(RESULTS_POINTER); 

NEW.LINE; 

PUT_LINE  (ITEM  =>  “TYPE  IN  NAME  OF  FEATURE”); 

GET_LINE  (ITEM  =>  RESULTS.FEATURE_NAME); 
GET_FEATURE_NODE(RESULTS,FUSION_HEAD.FUSION_TAIL); 
RESULTS.POINTER  :=  RESULTS.RESULT_HEAD; 
if  OUTPUT_CHANNEL  =  SCREEN  then 
NEW_LINE; 

PUT  (ITEM  =>  “RESULTS  FOR  FEATURE.  “); 

PUT  (ITEM  =>  RESULTS.FEATURE_NAME); 

NEW_LINE; 

else 

NEW  LINE  (RLE  =>  REPORT.RLE); 
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PUT  (FILE  =>  REPORT_FILE,  ITEM  =>  “RESULTS  FOR  FEATURE,  “); 

PUT  (HLE  =>  REPORT_FlLE,  ITEM  =>  RESULTS.FEATURE_NAME); 

NEW_LINE  (FILE  =>  REPORT_FILE); 
end  if; 
begin 
loop 

DISTANCE  :=  RESULT_LIST.GET_NODE(RESULTS_POINTER); 

RESULTS.POINTER  :=  RESULT_LIST.NEXT_LINK(RESULTS_POINTER); 
NEXT_W0RD(W0RD,W0RD_P01NTER); 
if  OUTPUT.CHANNEL  =  SCREEN  then 
PUT  GTEM  =>  WORD); 

forlNDEXl  in  L.20-STRING_LENGTH(WORD)  loop 
PUT  (ITEM  =>  ‘  ‘); 
end  loop; 

FLOAT_IO.PUT  (ITEM  =>  DISTANCE. 

FORE=>  1. 

AFT=>  4, 

EXP=>  0); 

NEW_LINE; 

else 

PUT  (FILE  =■>  REPORT.FILE,  ITEM  =>  WORD); 
forlNDEXl  in  1  ..20-STRING_LENGTH(WORD) loop 
PUT  (FILE  =>  REPORT.FILE,  ITEM  =>  ‘  ‘); 
end  loop; 

FLOAT_IO.PUT  (FILE  =>  REPORT_FILE.  ITEM  =>  DISTANCE, 

FORE=>  1, 
aft  =>  4, 

EXP  =>  0); 

NEW_LINE  (HLE  =>  REPORT_FILE); 
end  if; 

end  loop; 
exception 

when  RESULT_LIST.UNDER_FLOW  => 

NULL; 

end; 

exception 

when  FUSION_LIST.NOT_IN_LIST=> 

PUT_LINE  (ITEM  =>  “THAT  FEATURE  HAS  NO  RECOGNITION  RESULi  S”); 
end  FEATURE_RESULTS_OUTPUT; 

procedure  ALL_FEATURE_RESULTS_OUTPUT  (OUTPUT_CHANNEL :  in  OUTPUT_CHAN- 
NEL.TYPE; 
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REPORT.HLE :  in  out  FILE_TYPE)  is 
-  [procedure_header_comment] 

DISTANCE :  FLOAT  :=  0.0; 

WORD :  VAR_STRING; 

RESULTS :  RESULT_RECORD_TYPE; 

RESULTS_POINTER  :  FUSION_LIST.LIST  :=  FUS10N_HEAD; 
WORD_POINTER  :  DATABASE_LIST.LIST  ;=  DATABASE_HEAD; 
DISTANCE_POINTER :  RESULT_LIST.LIST; 

COUNTER :  INTEGER  :=  0; 
begin 

RESULT_LIST.NULL_POINTER(DISTANCE_POINTER); 

if  OUTPUT_CHANNEL  =  SCREEN  then 
PUT  (ITEM  =>  “RESULTS  FOR  FEATURE.  “); 
else 

PUT  (FILE  =>  REPORT.RLE,  ITEM  =>  “RESULTS  FOR  FEATURE.  “); 
end  if; 

while  NOTIS_NULL(RESULTS_POINTER)  loop 
RESULTS  :=GET_NODE(RESULTS_POINTER); 
if  OUTPUT_CHANNEL  =  SCREEN  then 
PUT  (ITEM  =>  RESULTS.FEATURE.NAME); 

PUT  (ITEM  =>  “  “); 
else 

PUT  (HLE  =>  REPORT.RLE,  ITEM  =>  RESULTS.FEATURE_NAME); 
PUT  (HLE  =>  REPORT.HLE,  ITEM  =>  “  “); 
end  if; 

RESULTS_POINTER  ;=  NEXT_LINK(RESULTS_POINTER); 
end  loop; 

if  OUTPUT_Ci;  \NNEL  =  SCREEN  then 
NEW_LINE; 
else 

NEW.LINE  (FILE  =>  REPORT_FILE); 
end  if; 
begin 
loop 

NEXT_WORD(WORD,WORD_POINTER); 

COUNTER  :=  COUNTER  +  1; 

RESULTS.POINTER  :=  FUSION_HEAD; 
if  OUTPUT_CHANNEL  =  SCREEN  then 
PUT  (ITEM  ->  WORD); 

forlNDEXl  in  1..20-STRING_LENGTH(WORD)  loop 
PUT  (ITEM  =>“); 
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end  Icxp; 
else 

PUT  (FILE  =>  REPORT.FELE,  ITEM  =>  WORD); 
for  INDEXl  in  1..20-STRING_LENGTH(WORD)  loop 
PUT  (FILE  =>  REPORT_FILE,  ITEM  =>  ‘  ‘); 
end  loq); 
end  if; 
begin 
loop 

RESULTS  ;=  GET_NODE(RESULTS_POINTER); 

RESULTS_POINTER  :=  NEXT_LINK(RESULTS_POINTER); 
DISTANCE_POINTER  :=  RESULTS.RESULT_HEAD; 
for  INDEX  in  1.. COUNTER  loop 

DISTANCE  ;=  RESULT_LIST.GET_NODE(DISTANCE_P01NTER); 
DISTANCE_POINTER  :=  RESULT_LIST.NEXT_LINK(DISTANCE_POINTER); 
end  loop; 

if  OUTPUT.CHANNEL  =  SCREEN  then 
PUT  GTEM  =>  DISTANCE, 

FORE=>2, 

AFT=>4, 

EXP=>0); 

else 

PUT  (RLE  =>  REPORT.HLE,  ITEM  =>  DISTANCE, 

FORE=>2, 

AFT=>  4, 

EXP=>0); 
end  if; 
end  loop; 
exception 

when  FUSION_LIST.UNDER_FLOW  => 
if  OUTPUT_CHANNEL  =  SCREEN  then 
NEW_LINE  (SPACING  =>  1); 
else 

NEW_LINE  (RLE  =>  REPORT_FlLE,  SPACING  =>  1); 
end  if; 

end; 

end  loop; 
exception 

when  DATABASE_LIST.UNDER_FLOW  => 

NULL; 

end; 

end  ALL_FEATURE_RESULTS_0UTPUT; 
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funcUcn  SMALL_VALUE  (RESULT :  in  RESULT_RECORD_TYPE)  return  RESULT_LIST.LIST  is 

-  [function_header_ccannient] 

DISTANCE_POINTER,  SMALLEST :  RESULT_LIST.LIST  :=  RESULT.RESULT_HEAD; 
begin 
loop 

DISTANCE.POINTER  :=  RESULT_LIST.NEXT_LINK(DISTANCE_POINTER); 

if  RESULT_LIST.GET_NODE(DISTANCE_POINTER)  <  RESULT_LIST.GET_NODE(SMALL- 
EST)then 

SMALLEST  :=  DISTANCE.POINTER; 

end  if; 
end  loop; 
exception 

when  RESULT_LIST.UNDER_FLOW  => 
return  SMALLEST; 
end  SMALL_VALUE; 

function  SMALL_VALUE_BY_INDEX  (RESULT :  in  RESULT_RECORD_TYPE)  return  INTEGER  is 

-  [function_header_coniinent] 

COUNTER :  INTEGER  :=  1; 

SMALL_COUNT :  INTEGER  ;=  1; 

DISTANCE.POINTER,  SMALLEST :  RESULT.LIST.LIST  :=  RESULT.RESULT.HEAD; 
begin 
loop 

DISTANCE_POINTER  :=  RESULT_LIST.NEXT_LINK(DISTANCE_POINTER); 

COUNTER  ;=  COUNTER  +  1; 

if  RESULT_LIST.GET_NODE(DISTANCEJPOINTER)  <  RESULT_LlST.GET_NODE(SMALL- 
EST)  then 

SMALLEST  :=  DISTANCE_POINTER; 

SMALL_COUNT  :=  COUNTER; 

end  if; 
end  loop; 
exception 

when  RESULT_LIST.UNDER_FLOW  => 
return  SMALL_COUNT; 
end  SMALL_VALUE_BY_INDEX; 

procedure  FEATURE_SMALLEST_RESULT  (OUTPUT_CHANNEL :  in  OUTPUT_CHAN- 
NEL.TYPE; 

REPORT.FILE  :  re  out  nLE_TYPE)  is 

-  [procedure_header_comment] 

RESULTS :  RESULT_RECORD_TYPE; 

SMALLEST :  RESULT_L1ST.LIST; 
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WORD_POINTER  :  DATABASE_LIST.LIST  :=  DATABASE_HEAD; 

WORD :  VAR_STRING  ; 

DISTANCE.POINTER :  RESULT_LIST.LIST; 

DISTANCE :  FLOAT; 
begin 

RESULT_LIST.NULL_POINTER(DISTANCE_POINTER); 

RESULT_LIST.NULL_POINTER(SMALLEST); 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “TYPE  IN  NAME  OF  FEATURE”); 

GET_LINE  (ITEM  =>  RESULTS.FEATURE_NAME); 
GET_FEATURE_NODE(RESULTS,FUSION_HEADJTJSION_TAIL); 
if  OUTPUT_CHANNEL  =  SCREEN  then 
PUT  (ITEM  =>  “RESULTS  FOR  FEATURE,  “); 

PUT  (ITEM  =>  RESULTS.FEATURE_NAME); 

NEW_LINE; 

else 

PUT  (RLE  =>  REPORT_FILE,  ITEM  =>  “RESULTS  FOR  FEATURE,  “); 

PUT  (RLE  =>  REPORT_RLE,  ITEM  =>  RESULTS.FEATURE_NAME); 

NEW.LINE  (FILE  =>  REPORT_FILE); 
end  if; 

SIvlALLEST  ;=  SMALL_VALUE(RESULTS); 

DISTANCE  ;=  RESULT_LIST.GET_NODE(SMALLEST); 

DISTANCE.PODfTER  :=  RESULTS.RESULT_HEAD; 
loop 

exit  when  RESULT_LlST.IS_EQUAL(SMALLEST,DISTANCE_POINTER); 
WORD_POINTER  :=  DATABASE_LIST.NEXT_LINK(WORD_POINTER); 
DISTANCE.POINTER  :=  RESULT_LlST.NEXT_LINK(DISTANCE_POINTER); 
end  loop; 

WORD  :=  DATABASE_LIST.GET_NODE(WORD_POINTER); 
if  OUTPUT_CHANNEL  =  SCREEN  then 
PUT  (ITEM  =>  “WORD  -  “); 

PUT  aTEM=>  WORD); 

PUT  (ITEM  =>  “  HAS  THE  SMALLEST  DTW  DISTANCE  OF  “); 

FLOAT_IO.PUT  OTEM  =>  DISTANCE, 

FORE=>  2, 

AFT=>4, 

EXP=>0); 

NEW.LINE; 

else 

PUT  (FILE  =>  REPORT.FILE,  ITEM  =>  “WORD  -  “); 

PUT  (FILE  =>  REPORT_FILE,  ITEM  =>  WORD); 

PUT  (FILE  =>  REPORT_RLE,  ITEM  =>  “  HAS  THE  SMALLEST  DTW  DISTANCE  OF  “); 
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FLOAT_IO.PUT  (HLE  =>  REPORT_nLE,  ITEM  =>  DISTANCE, 

FORE=>  2, 

AFT=>4, 

EXP=>0); 

NEW_LINE  (FILE  =>  REPORT_FILE); 
end  if; 

end  FEATURE_SMALLEST_RESULT; 

procedure  ALL  FEATURE  SMALLEST_RESULT  (OUTPUT_CHANNEL ;  in  OUTPUT_CHAN- 
NEL.TYPE; 

REPORT.HLE :  in  out  nLE_TYPE)  is 
-  [procedure_header_coniment] 

RESULTS ;  RESULT_RECORD_TYPE; 

WORD :  VAR_STRING: 

RESULTS_POINTER  :  FUSION_LIST.LIST  :=  FUSION_HEAD; 

WORD.POINTER  :  DATABASE.LIST.LIST; 

SMALLEST,  DISTANCE_POINTER :  RESULT_LIST.LIST; 

DISTANCE :  FLOAT; 
begin 

DATABASE_LlST.NULL_POINTER(WORD_POINTER); 
while  NOT  IS_NULL(RESULTS_POINTER)  loop 
RESULTS  ;=  GET_NODE(RESULTS_POINTER); 
if  OUTPUT.CHANNEL  =  SCREEN  then 
PUT  (ITEM  =>  “RESULTS  FOR  FEATURE,  ‘); 

PUT  (ITEM  =>  RESULTS.FEATURE_NAME); 

NEW.LINE; 

else 

PUT  (HLE  =>  REPORT_FILE.  ITEM  =>  “RESULTS  FOR  FEATURE,  “); 

PUT  (FILE  =>  REPORT.HLE,  ITEM  =>  RESULTS.FEATURE_NAME); 

NEW.LINE  (FILE  =>  REPORT.HLE); 
end  if; 

SMALLEST  :=  SMALL_VALUE(RESULTS); 

WORD.POINTER  :=  DATABASE.HEAD; 

DISTANCE  :=  RESULT_LIST.GET_NODE(SMALLEST); 

DISTANCE_POINTER  =  RESULTS.RESULT_HEAD; 
loop 

exit  when  RESULT_LlST.IS_EQUAL(SMALLESTT)ISTANCE_POINTER); 

WORD.POINTER  :=  DATABASE_LIST.NEXT_LINK(WORD_POINTER); 
DISTANCE_POINTER  ;=  RESULT_LIST.NEXT_LINK(DISTANCE_POINTER); 
end  loop; 

WORD  ;=  DATABASE_LIST.GET_NODE(WORD_POINTER); 
if  OUTPUT_CHANNEL  =  SCREEN  then 
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PUT  (ITEM  =>  “WORD  -  “); 

PUT  aTEM=>  WORD); 

PUT  (ITEM  =>  “  HAS  THE  SMALLEST  DTW  DISTANCE  OF  “); 

FLOAT_IO.PUT  (ITEM  =>  DISTANCE, 

FORE=>2, 

AFT=>  4, 

EXP  =>  0); 

NEW_LINE; 

else 

PUT  (FILE  =>  REPORT.FTLE,  ITEM  =>  “WORD  -  “); 

PUT  (FILE  ->  REPORT.FILE,  ITEM  =>  WORD); 

PUT  (FILE  =>  REPORT_FILE,  ITEM  =>  “  HAS  THE  SMALLEST  DTW  DISTANCE  OF  “); 
FLOAT_IO.PUT  (HLE  =>  REPORT.HLE,  ITEM  =>  DISTANCE. 

FORE=>2, 

AFT=>  4, 

EXP  =>  0); 

NEW_LINE  (FILE  =>  REPORT.FILE); 
end  if; 

RESULTS_POINTER  :=  NEXT_LINK(RESULTS_POINTER); 
end  loop; 

end  ALL_FEATURE_SMALLEST_RESULT; 

procedure  FUSION  is 
-  [procedure_header_comment] 

RESULTS :  RESULT_RECORD_TYPE; 

FUSED_RESULTS ;  RESULT_RECORD_TYPE; 

RESULTS.POINTER  :  FUSION_LIST.LIST  ;=  FUSION.HEAD; 

DISTANCE_POINTER :  RESULT_LIST.LIST; 

FUSED_DISTANCE,  DISTANCE :  FLOAT; 
begin 

RESULT_LIST.NULL_POINTER(DISTANCE_POINTER); 

FUSED_RESULTS.FUSION_FACTOR  :=  1.0; 
ASSIGN(FUSED_RESULTS.FEATURE_NAME.”FUS”); 

RESULTS  :=  GET_NODE(RESULTS_POINTER); 

DISTANCE_POINTER  :=  RESULTS.RESULT_HEAD; 
begin 
loop 

DISTANCE  :=  RESULT_LIST.GET_NODE(DISTANCE_POINTER); 

DISTANCE_POINTER  :=  RESULT_LIST.NEXT_LINK(DISTANCE_POINTER); 

DISTANCE  ;=  DISTANCE  *  RESULTS.FUSION_FACTOR; 

RESULT_LIST.ADD_TCXDISTANCEJTJSED_RESULTS.RESULT_HEAD,FUSED_RESULTS.PE- 

SULT_TAIL); 
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end  loop; 
exception 

when  RESULT_LIST.UNDER_FLOW  => 

NULL; 

end; 

RESULTS_POINTER  ;=  NEXT_LINK(RESULTS_POINTER); 
while  NOT  IS_NULL(RESULTS_POINTER)  loc^ 

RESULTS  :=  GET_NODE(RESULTS_POINTER); 
begin 

DISTANCE.POINTER  :=  RESULTS.RESULT_HEAD; 
loop 

DISTANCE  ;=  RESULT_LIST.GET_NODE(DISTANCE_POINTER); 

RESULT_LIST.REMOVE_NEXT_NODE(FUSED_DISTANCE,FUSED_RESULTS.RE- 

SULT_HEAD,FUSED_RESULTS.RESULT_TAIL); 

FUSED_DISTANCE  :=  FUSED_DISTANCE  +  RESULTS.FUSION_FACTOR*DISTANCE; 

RESULT_LIST.ADD_TO(FUSED_DISTANCE,FUSED_RESULTS.RESULT_HEAD,FUSED_RE- 

SULTS.RESULT_TAIL); 

DISTANCE.POINTER  :=  RESULT_LIST.NEXT_LINK(DISTANCE_POINTER); 

end  loop; 
exception 

when  RESULT_LIST.UNDER_FLOW  => 

NULL; 

end; 

RESULTS_POINTER  :=  NEXT_LINK(RESULTS_POINTER); 
end  loop; 

ADD_TO(FUSED_RESULTS,FUSION_HEAn.FUSION_TAlL); 
end  FUSION; 


procedure  FUSION_RESULT  is 
-  [procedure_header_comment] 

RESULTS :  RESULT_RECORD_TYPE; 

DISTANCE.POINTER,  SMALLEST :  RESULT_LIST.LIST; 
WORD.POINTER  :  DATABASE_LIST.LIST  ;=  DATABASE.HEAD; 

WORD :  VAR_STRING; 
begin 

ASSIGN(RESULTS.FEATURE_NAME,”FUS”); 

GET.FEATURE_NODE(RESULTSTaJSION_HEAD,FUSION_TAIL); 

PUT  (ITEM  =>  “FUSION  RESULTS  IS  “); 

SMALLEST  :=  SMALL_VALUE(RESULTS); 

DISTANCE_POINTER  :=  RESULTS. RESULT_HEAD; 
loop 

exit  when  RESULT_LIST.IS_EQUAL(SMALLEST,DISTANCE_POINTER); 
WORD_POINTER  :=  DATABASE_LIST.NEXT_LINK(W0RD_P0I:'TER); 
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DISTANCE_POINTER  :=  RESULT_LIST.NEXT_LINK(DISTANCE_POINTER); 
end  loop; 

WORD  :=  DATABASE_LIST.GET_NODE(WORD_POINTER); 

PUT  aTEM  =>  WORD); 

NEW_LINE; 
end  FUSION.RESULT; 

procedure  CREATE_SUBLIST  (NUMBER_WORDS  ;  in  INTEGER)  is 
-  [procedure_header_comnient] 

package  TEMP_LISTis  new  LINKED_LIST(ITEM_TYPE  =>  FLOAT); 
use  temp_list; 

TEMP_HEAD,  TEMP_TAIL :  TEMP_LIST.LIST; 

RESULTS ;  RESULT_RECORD_TYPE; 

RESULTS_POINTER :  RESULT_LIST.LIST; 

DISTANCE,  SMALL ;  FLOAT; 

TEMP.POINTER,  SMALLEST :  TEMP_LIST.LIST; 

SMALLEST_IN_SUBLIST,  SUBLIST_POINTER  :  DATABASE_LIST.LIST  :=  SUBLIST_HEAD; 
WORD ;  VAR_STRING; 

WORD_POINTER  :  DATABASE_LIST.LIST  :=  LIST_HEAD; 
begin 

NULL_POlNTER(TEMP_POINTER); 

NULL_POINTER(SMALLEST); 

DATABASE_LIST.CLEAR_LIST(SUBLIST_HEAD.SUBLIST_TAIL); 

ASSIGN(RESULTS.FEATURE_NAME.”FUS”); 

GET_FEATURE_NODE(RESULTS.FUSION_HEAD.FUSION_TAIL); 

RESULTS.POINTER  :=  RESULTS.RESULT_HEAD; 
for  INDEX  in  1.. NUMBER. WORDS  loop 
DISTANCE  :=  RESULT_LIST.GET_NODE(RESULTS_POINTER); 

RESULTS.POINTER  :=  RESULT_LIST.NEXT_LINK(RESULTS_POINTER); 

TEMP_LIST.ADD_TO(DISTANCE.TEMP_HEAD,TEMP_TAIL); 

NEXT_WORD(WORD.WORD_POINTER); 

DATABASE_LIST.ADD_TO(WORD,SUBLIST_HEAD,SUBLIST_TAIL); 
end  loop; 
begin 
kx)p 
begin 

SMALLEST  :=  TEMP.HEAD; 

TEMP.POINTER  :=  TEMP.HEAD; 

SMALLEST_IN_SUBLIST  :=  SUBLIST.HEAD; 

SUBLIST.POINTER  ;=  SUBLIST.HEAD; 
loop 

TEMP.POINTER  ;=  TEMP_LIST.NEXT_LINK(TEMP_POINTER); 
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SUBLIST_POINTER  :=  DATABASE_LiST.NEXT_LINK(SUBLIST_POINTER); 
if  TEMP_LIST.GET_NODE(TEMP_POINTER)  >  TEMP_LIST.GET_NODE(SMALLEST)  then 
SMALLEST  :=  TEMP_POINTER; 

SMALLEST_1N_SUBLIST  :=  SUBLIST.POINTER; 
end  if; 

end  loq); 
exception 

when  TEMP_LIST.UNDER_FLOW  => 

NULL; 

end; 

DISTANCE  ;=  TEMP_LIST.GET_NODE(SMALLEST); 

FIND_SMALLER;  loop 

exit  HND.SMALLER  when  RESULT_LIST.GET_NODE(RESULTS_POINTER)  <  DIS¬ 
TANCE; 

RESULTS.POINTER  ;=  RESULT_LIST.NEXT_LINK(RESULTS_POINTER); 
NEXT_WORD(WORD,WORD_POINTER); 
end  loop  nND_SMALLER; 

TEMP_LlST.REMOVE_NODE(TEMP_LIST.GET_NODE(SMALL- 

EST),TEMP_HEAD,TEMP_TAIL); 

TEMP_LIST.ADD_TO(RESULT_LIST.GET_NODE(RE- 

SULTS_POINTER),TEMP_HEAD,TEMP_TAIL); 

RESULTS  .POINTER  :=  RESULT_LIST.NEXT_LINK(RESULTS_POINTER); 

DATABASE.LIST.REMOVE  NODE(DATABASE  LIST.GET  NODE(SMAJLLEST_IN_SUB  - 
LIST).SUBLIST_HEAD,SUBLISf_TAIL); 

DATABASE_LIST.ADD_TO(DATABASE  LIST.GET_NODE(WORD_POINTER).SUB  - 
LIST_HEAD,SUBLIST_TAIL); 

NEXT_WORD(WORD,WORD_POINTER); 

end  loop; 

exception 

when  RESULT_LIST.UNDER_FLOW  => 

NULL; 

end; 

end  CREATE_SUBLIST; 

function  AGREE  return  FLOAT  is 
-  [function_header_comment] 

RESULTS ;  RESULT_RECORD_TYPE; 

nRST_ANSWER,  SMALLEST.  DISAGREE,  COUNTER  :  INTEGER  :=  0; 

FUS10N_P0INTER  :  FUSION.LIST.LIST  :=  FUSION.HEAD; 
begin 

RESULTS  :=  GET_NODE(FUSION_POINTER); 

FIRST_ANSWER  :=  SMALL_VALUE_BY_INDEX(RESULTS); 

COUNTER  :=  1; 
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loop 

FUSION_POINTER  :=  NEXT_LINK(FUSION_POINTER); 
RESULTS  :=  GET_NODE(FUSION_POINTER); 

COUNTER  :=  COUNTER  +  1; 

SMALLEST  :=  SMALL_VALUE_BY_INDEX(RESULTS); 
if  SMALLEST  /=  FIRST.ANSWER  then 
DISAGREE  ;=  DISAGREE  +  I; 
end  if; 
end  loop; 
exception 

when  FUSION_LIST.UNDER_FLOW  => 
return  FLOAT(COUNTER-DISAGREE)/FLOAT(COUNTER); 
end  AGREE; 


procedure  FUS10N_C0NTR0L_PANEL  is 
-  [pr(xedure_header_comment] 
type  CHOICE_INTEGER  is  range  1..1 1; 

CHOICE :  CHOICE_INTEGER; 

NUM_WORDS :  INTEGER; 

package  ENUMERATION.IO  is  new  TEXT  lO.ENUMERATIONJO  (OUTPUT.CHAN- 
NEL_TYPE); 

package  FLOATJO  is  new  TEXT_IO.FLOAT_IO  (FLOAT); 
package  INTEGER.IO  is  new  TEXTJO.INTEGERJO  (CHOICE.INTEGER); 
package  REG_INTEGER_IO  is  new  TEXT.IO.INTEGERJO  (INTEGER); 
use  INTEGER.IO,  REG_INTEGER_IO,  ENUMERATION_IO.  FLOAT_IO; 


begin 

CREATE  (HLE  =>  RHPORT_FILE); 


MAIN:  kxip 
begin 

NEW_LINE(2); 
PUT_LINE  (ITEM  => 
PUT_LINE  (ITEM  =>  “ 
PUT_LINE  (ITEM  =>  “ 
PUT_LINE  (ITEM  >“ 
PUT_LINE  (ITEM  =>  “ 
PUT_I.INE  (ITEM  =>  “ 
PUT_LINE  (ITEM  =>  “ 
PUT_LINE  GTEM  =>  “ 
PUT_LINE  (ITEM  =>  " 
PUT_LINE  (ITEM  =>  “ 


1  -  SET  OI  rrpuT  CHANNEL  (SCREEN  OR  RLE) "); 

2  -  SET  nLE  NAME  FOR  RESULTS”); 

3  -  CREATE  SUBLIST”); 

4  -  OUTPUT  RESULTS  FOR  A  FEATURE”); 

5  -  OUTPUT  RESULTS  FOR  ALL  FEATURES”); 

6  -  OUTPUT  SMALLEST  DTW  \  ALUE  FOR  A  FEATURE”); 

7  -  OITPUT  SMALLEST  DTW  VALUE  FOR  ALL  FEATURES”); 

8  -  PERFORM  FUSION”); 

9  -  FUSION  RESULT’); 

10  -  CLEAR  FUSION  LIST”); 
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PUT_LINE  (ITEM  =>  “  1 1  -  QUIT”); 

NEW_LINE; 

PUT  (ITEM  =>  “  CHOICE  ->  “); 

GET  (ITEM  =>  CHOICE); 

GET.LINE  (ITEM  =>  DUMMY); 
case  CHOICE  is 
when  1  => 

NEW_LINE; 

PUT_LINE  aTEM  =>  “TYPE  OUTPUT  CHANNEL  NAME.  SCREEN  OR  RLE”); 

GET  (ITEM  =>  OUTPUT_CHANNEL); 

GET_LINE  (ITEM  =>  DUMMY); 
when  2  => 

CLOSE  (FILE  =>  REPORT.FILE); 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “TYPE  NAME  OF  FILE”); 

GET_LINE  (ITEM  =>  THE_FILE); 

CREATE ( 

FILE  =>  REPORT.HLE, 

MODE  =>  OUT.HLE. 

NAME  =>  THE.HLE); 
when  3  => 

PUT_LINE  (ITEM  =>  “TYPE  THE  NUMBER  OF  WORDS  TO  BE  IN  THE  SUBLIST”); 
REG JNTEGERJO.GET  (ITEM  =>  NUM.WORDS); 

GET_LINE  (ITEM  =>  DUMMY); 

CREATE_SUBLIST(NUM_WORDS); 
when  4  => 

FEATURE_RESULTS_OUTPUT(OUTPUT_CHANNEL,REPORT_nLE); 
when  5  => 

ALL_FEATURE_RESULTS_OUTPUT(OUTPUT_CHANNEL,REPORT_nLE); 
when  6  => 

FEATLTlE_SMALLEST_RESULT(OUTPUT_CHANNEL.REPORT_nLE); 
when  7  => 

ALL_FEATURE_SMALLEST_RESULT(OUTPUT_CHANNEL,REPORT_FlLE): 

when  8  => 

FUSION: 

when  9  => 

FUSION_RESULT; 
when  10=> 

Cl  EAR_LIST(FUSION_HEAO,  FUSION_TAIL); 

when  1 1  => 
exit  MAIN; 
end  case; 
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exception 

when  DATA_ERROR  => 

PUT_LINE  (ITEM  =>  “THERE  ARE  9  CHOICES,  SO  TYPE  A  NUMBER  BETWEEN  1  AND  9”); 
end; 

end  loop  MAIN; 

CLOSE  (RLE  =>  REPORT_nLE); 
end  FUSION_CONTROL_PANEL; 

end  FUSION_PACKAGE; 
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-  [source_file_header_comment] 

with  LINKED_LIST,  STRING_OPERATIONS,  DATABASE_PACKAGE; 
use  STRING.OPERATIONS,  DATABASE_PACKAGE; 
package  FUSION_REC_PACKAGE  is 


-  PACKAGE  DESCRIPTION: 

-  TfflS  PACKAGE  CONTAINS  TYPE  AND  LIST  DEHNITIONS  TO  MAKE  THE  FUSION 

-  PACKAGE  AND  THE  RECOGNITION  PACKAGE  WORK  TOGETHER 


-  [optional  package  tags] 


-  LIST  FOR  STORING  DISTANCE  VALUES  FROM  THE  RECOGNIZERS 
package  RESULT_LIST  is  new  LINKED_LIST  (ITEM_TYPE  =>  FLOAT); 
use  RESULT_LIST; 

-  TELLS  THE  FUSION  PACKAGE  WHERE  TO  OUTPUT  THE  RESULTS  FROM  ITS  REPORTS 
type  OUTPUT_CHANNEL_.TYPE  is  (SCREEN,  HLE); 

-  A  RECORD  FOR  STORING  THE  RESULTS  FROM  A  RECOGNIZER  ON  A  FEATURE 
type  RESULT_RECORD_TYPE  is 

record 

RESULT.HEAD :  RESULT.LIST.LIST; 

RESULT.TAIL ;  RESULT_LIST.L1ST; 

FEATURE_NAME :  VAR_STRING; 

FUSION_FACTOR  :  FLOAT  :=  1.0; 
end  record; 

-  RECORD  FOR  CREATING  FUSED  FEATURES 
type  FEATURE_RECORD_TYPE  is 

record 

NAME :  VAR_STRING; 

COMPONENTS  :  INTEGER; 
end  record; 

-  LIST  FOR  STORING  THE  RESULTS  FOR  RECOGNIZERS  ON  DIFFERENT  FEATURE 
package  FUSION_LIST  is  new  LINKED_LIST  (ITEM_TYPE  =>  RESULT_RECORD_TYPE); 

-  LIST  FOR  CREATING  FUSED  FEATURES 

package  FUSED_FEATURE_LIST  is  new  LINKED.LIST  (ITEM_TYPE  =>  FEATURE.RE- 
CORD_TYPE); 

-  LIST  FOR  STORING  USER  PREHXES  TO  BE  TEMPLATED 

package  PREHX.LIST  is  new  LINKED.LIST  (ITEM_T'»  PE  =>  VAR.STRING); 
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use  FUSED_FEATURE_LIST,  FUSION.LIST,  PREHX.LIST; 


FUSION_HEAD,  FUSION_TAIL :  FUSION.LIST.LIST; 
PREHX.HEAD,  PREnX_TAIL :  PREHX.LIST.LIST; 

end  FUSION_REC_PACKAGE; 
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-  [scHirce_file_header_comment] 

with  TEXTJO,  STRING_OPERATIONS,  LINKED_LIST; 
use  TEXT_IO,  STRING.OPERATIONS; 
package  DATABASE_PACKAGE  is 


-  PACKAGE  DESCRIPTION: 


The  database_package  ccxitains  the  packages  and  functions  for 

-  manipulating  the  word  name  list.  This  list  holds  all  the  names  of  the 

-  words  in  the  database 

-  [optional  package  tags] 


-  instantiate  linked  list  for  the  database  list 

package  DATABASE_LIST  is  new  LINKED_LIST  (ITEM_TYPE  =>  VAR_STRING); 

-  instantiate  linkedjist  foe  the  speech  list 

package  SPEECH.LIST  is  new  LINKED_LIST  (ITEM_TYPE  =>  FLOAT); 
use  SPEECH.LIST,  DATABASE.LIST; 

type  LIST.TYPE  is  (LIST,  SUBLIST); 

LIST.POINTER  :  LIST.TYPE  :=  LIST; 

LIST.HEAD,  LIST.TAIL,  SUBLIST.HEAD,  SUBLIST_TAIL,  DATABASE.HEAD,  DATA- 
BASE.TAIL  :  DATABASE_LIST.LIST; 

SPEECH_HEAD,  SPEECH_TAIL :  SPEECH_LIST.LIST; 

COUNT_STRlNG,  DIRECTORY_NAME,  LIBRARY_PREFIX :  VAR_STRING; 

NUMBER_OF_WORDS  :  INTEGER  ;=  0; 

WORDS_FILE :  HLE.TYPE; 

WORDS_FILE_NAME :  VAR_STRING; 


-  ++ 


-  FUNCTIONAL  DESCRIPTION; 


This  procedure  sets  the  path  ol  the  database 

-  (formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  SET_D1RECT0RY_NAME  (NEW_DIR :  in  VAR.STRING); 
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-  FUNCTIONAL  DESCRIPTION: 


This  procedure  sets  the  library  prefix  of  the  words  in  the  database 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  SET_LIBRARY_PREnX  (NEW.PRE :  in  VAR.STRING); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  procedure  is  used  to  reset  the  word  count  in  case  it  becomes 

-  incorrect 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  SET_WORD_COUNT  (COUNT :  in  INTEGER); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  procedure  adds  a  word  name  to  the  database  list 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  ADD_LIBRARY_WORD  (NEW_WORD :  in  VAR_STRING); 


-  ++ 


-  FUNCTIONAL  DESCRIPTION: 
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This  procedure  deletes  a  word  name  from  the  database  list 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  DELETE_LIBRARY_WORD  (THE_WORD :  in  VAR_STRING); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION; 

This  procedure  reset  the  database  list  after  words  are  added 

-  or  deleted 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 
procedure  RESET_DATABASE_LIST; 


-  ++ 


-  FUNCTIONAL  DESCRIPTION: 

This  procedure  returns  the  name  of  the  next  word  in  the  database 

-  list  and  increments  the  pointer 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  NEXT_WORD  (THE_WORD  :  out  VAR_STRING;  POINTER  ;  in  out  DATA- 
BASE_LIST.LIST); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  produres  provides  interactive  control  of  the  database 

-  functions  directly  from  the  menu 
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-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  DATABASE_CONTROL_PANEL  (UPDATE :  in  out  BOOLEAN ); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

THis  procedure  is  used  to  toggle  between  using  the  database  list 

-  as  the  entire  list  or  as  a  sublist 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  SET_L1ST_P01NTER  (TO_LIST :  in  L1ST_TYPE); 

package  ENUMERATION.IO  is  :  .w  TEXTJO.ENUMERATIONJO  (LIST  TYPE); 
USE  ENUMERATIONJO; 

end  DATABASE.PACKAGE; 
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package  body  DATABASE_PACKAGE  is 
-  [package_body_header_comment] 

procedure  SET_DIRECTORY_NAME  (NEW_DIR  :  in  VAR_STRING)  is 

-  [procedure_header_coniment] 
begin 

DIRECTORY.NAME  :=  NEW_DIR; 
end  SET_DIRECTORY_NAME; 

procedure  SET_LroRARY_PREnX  (NEW.PRE :  in  VAR_STRING)  is 

-  [procedure_header_comment] 
begin 

LIBRARY_PREFIX  :=  NEW_PRE; 
end  SET_LroRARY_PREFIX; 

procedure  SET_WORD_COUNT  (COUNT :  in  INTEGER)  is 

-  [procedure_header_cotnment] 
begin 

NUMBER_OF_WORDS  ;=  COUNT; 
end  SET_WORD_COUNT; 

procedure  ADD_LIBRARY_WORD  (NEW_WORD :  in  VAR.STRING)  is 

-  [procedure_header_comment] 
begin 

if  LIST.POINTER  =  LIST  then 

DATABASE_LIST.ADD_TO(NEW_WORD,LIST_HEAD,LIST_TAIL); 

else 

DATABASE_LlST.ADD_TO(NEW_WORD,SUBLIST_HEAD,SUBLIST_TAIL); 
end  if; 

NUMBER_OF_WORDS  :=  NUMBER_OF_WORDS  +  1; 
end  ADD_LIBRARY_WORD; 

procedure  DELETE_LIBRARY_WORD  (THE_WORD :  in  VAR_STRING)  is 

-  [procedure_header_comment] 
begin 

if  LIST.POINTER  =  1 1ST  then 

DATABASE_LIST.REMOVE_NODE(THE_WORDXIST_HEAD4.IST_TAIL); 

else 

DATABASE_LIST.REMOVE_NODE(THE_WOF.  >.LIST_HEAD,LIST_TAIL); 
end  if; 

NUMBER_OF_WORDS  :=  NUMBER_OF_WORDS  -  1; 
end  DELETE_LIBRARY_WORD; 


268 


procedure  NEXT.WORD  (THE_WORD  :  out  VAR_STRING;  POINTER  :  in  out  DATA- 
BASE_LIST.LIST)  is 

-  [procedure_header_comment] 
begin 

THE_WORD  ;=  GET_NODE(POINTER); 

POINTER  :=  NEXT_LINK(POINTER); 
end  NEXT_WORD; 

procedure  RESET_DATABASE_LIST  is 

-  [procedure_header_coinment] 

WORDS :  VAR_STRING; 
begin 

DATABASE_LIST.CLEAR_LIST(LIST_HEADJL1ST_TA1L); 

ASSIGN(WORDS_FILE_NAME,”DATABASE.DAT’); 

WORDS_nLE_NAME  ;=  DIRECTORY_NAME&WORDS_FILE_NAME; 

OPEN( 

FILE  =>  WORDS_FILE, 

MODE  =>  IN.HLE, 

NAME  =>  WORDS_nLE_NAME); 

begin 

loop 

STRING_OPERATIONS.GET_LINE  (FILE  =>  WORDS.FILE  .  ITEM  =>  WORDS); 
ADD_TO(WORDS,LIST_HEAD,LIST_TAIL); 

NUMBER_OF_WORDS  :=  NUMBER_OF_WORDS  +  1; 

end  loq); 
exception 

when  END_ERROR  => 

CLOSE  (RLE  =>  WORDS_FILE); 

end; 

end  RESET_DATABASE_LIST; 

prrxedure  SET_LIST_POINTER  (TO_LIST :  in  LIST_TYPE)  is 

-  [procedure_header_comment] 
begin 

LIST.POINTER  :=  TO_LIST; 
if  TO_LIST- LIST  then 
DATABASE_HEAD  ;=  LIST_HEAD; 

DATABASE_TAIL LIST_TAIL; 
else 

DATABASE_HEAD  :=  SUBLIST.HEAD; 
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DATABASE_TAIL  ;=  SUBL1ST_TAIL; 
end  if; 

end  SET_LlST_POINTER; 

procedure  DATABASE_CONTROL_PANEL  (UPDATE :  in  out  BOOLEAN)  is 
-  [procedure_header_commeni] 

type  CHOICEJNTEGER  is  range  1..7; 

DUMMY,  THE_WORD :  VAR_STRING; 

CHOICE :  CHOICEJNTEGER; 

ANSWER :  CHARACTER; 

WORD_POINTER  ;  DATABASE_LIST.L1ST; 

package  ENUMERATION_IO  is  new  TEXTJO.ENUMERATION_IO  (LIST_TYPE); 
package  INTEGER  JO  is  new  TEXTJ0.1NTEGER_I0  (CHOICEJNTEGER); 
use  INTEGER  JO.  ENUMERATION_IO; 
begin 

NULL_POINTER(WORD_POI  NTER); 

UPDATE  :=  FALSE; 

MAIN:  loop 
begin 

NEW.LINE  (2); 

PUT.LINE  (ITEM  »>  “  I  -  ADD  WORD(S)  TO  DATABASE”); 

PUT.LINE  (ITEM  =>  “  2  -  DELETE  WORDS  FROM  DATABASE”); 

PUT.LINE  aTEM  =>  “  3  -  LIST  LIBRARY  WORDS”); 

PUT.LINE  (ITEM  =>  “  4  -  SET  DIRECTORY  NAME”); 

PUT.LINE  (ITEM  =>  "  5  -  SET  LIBRARY  PREFIX”); 

PUT.LINE  (ITEM  =>  “  6  -  SET  LIST  POINTER”); 

PUT.LINE  (ITEM  =>  “  7  -  QUIT  EXTRACTION  OPERATIONS”); 

NEW.LINE; 

PUT(“  CHOICE ->“); 

GET  (ITEM  =>  CHOICE); 

GET.LINE  (ITEM  =>  DUMMY); 
case  CHOICE  is 
when  I  => 

ADD.WORD:  loop 

PUT.LINE  (ITEM  =>  “TYPE  IN  WORD  TO  ADD  TO  THE  DATABASE”); 
GET.LINE  (ITEM  =>  THE.WORD); 

ADD.LIBRARY.WORIXTHE.WORD); 

PUT.LINE  (ITEM  =>  “DO  YOU  WNAT  TO  ADD  ANOTHER?”); 

GET  (ITEM  =>  ANSWER); 

GET.LINE  OTEM  =>  THE.WORD); 


270 


exit  ADD_WORD  when  NOT  (ANSWER  =  ‘Y’  OR  ANSWER  =  ‘y’): 
end  loop  ADD_WORD; 

UPDATE  :=  TRUE; 
when  2  => 

DELETE_WORD:  loop 

PUT_LINE  (ITEM  =>  “TYPE  IN  WORD  TO  DELETE  FROM  THE  DATABASE”); 
GET_LINE  GTEM  =>  THE_WORD); 

DELETE_LIBRARY_WORD(THE_WORD); 

PUT_LINE  (ITEM  =>  “DO  YOU  WNAT  TO  DELETE  ANOTHER?”); 

GET  (ITEM  =>  ANSWER); 

GET_LINE  GTEM  =>  THE_WORD); 

exit  DELETE_WORD  when  NOT  (ANSWER  =  ‘Y’  OR  ANSWER  =  ‘y’); 
end  loop  DELETE_WORD; 

UPDATE  :=  TRUE; 

when  3  => 
begin 

WORD_POINTER  :=  DATABASE_HEAD; 

NEXT_WORD(THE_WORD.WORD_POINTER); 

loop 

PUT.LINE  (ITEM  =>  THE.WORD); 
NEXT_WORD(THE_WORD,WORD_P01NTER); 

end  loop; 
exception 

when  DATABASE_LlST.UNDER_FLOW  => 

NULL; 

end; 

when  4  => 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “TYPE  IN  NEW  DIRECTORY  NAME"); 

GET_LINE  (ITEM  =>  THE_WORD); 

SET_DIRECTORY_NAME(THE_WORD); 

UPDATE  :=  TRUE; 

when  5  => 

NEW_LINE; 

PUT_LINE  (ITEM  =>  “TYPE  IN  NEW  LIBRARY  PREFIX"); 

GET_LINE  (ITEM  =>  THE_WORD); 

SET_LIBRARY_PREnX(THE_WORD); 

UPDATE  :=  TRUE; 
when  6  => 

PUT_LINE  (ITEM  =>  ‘TYPE  LIST  OR  SUBLIST’); 
ENUMERATION_IO.GET  (ITEM  =>  LIST_POINTER); 

GET_LINE  (ITEM  =>  THE.WORD); 
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when  7  => 


if  UPDATE  =  TRUE  then 

WORDS_FILE_NAME  :=  DIRECTORY_NAME&”DATABASE.DAT”; 

OPEN( 

FILE  =>  WORDS.FILE, 

MODE  =>  OUT_FILE, 

NAME  =>  WORDS_FILE_NAME); 

WORD_POINTER  :=  DATABASE_HEAD; 
begin 
loop 

NEXT_WORD(THE_WORD,WORD_POINTER); 

STRING_OPERATIONS.PUT_LlNE  (FILE  =>  WORDS.FILE  .  ITEM  =>  THE_WORD); 
end  kx)p: 
exception 

when  DATABASE_LIST.UNDER_FLOW  => 

CLOSE  (FILE  =>  WORDS_FILE); 
end; 

end  if; 
exit  MAIN; 
end  case; 
exception 

when  DATA_ERROR  => 

PUT.LINE  (ITEM  =>  “OOOCH!  HEY,  WATCH  WHAT  YOUR  TYPING  -  I’LL  PULL  A  CON¬ 
STRAINT’); 

end; 

end  loop  MAIN; 

end  DATABASE_CONTROL_PANEL; 
begin 

ASSIGN(DIRECTORY_NAME.”[TRATHBUN.SPEECH.DATABASE]"); 

ASSIGN(LIBRARY_PREnX,””); 

RESET_DATABASE_LIST; 

SET_LIST_TOINTER(LIST); 

SPEECH_LIST.NULL_POINTER(SPEECH_HEAD); 
SPEECH_LIST.NULL_P01NTER(SPEECH_TAIL); 
end  DATABASE_PACKAGE; 
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-  [source_file_header_comment] 

with  UNCHECKED.DEALLOCATION; 

generic 

type  1TEM_TYPE  is  private; 
package  LINKED_LIST  is 


-  PACKAGE  DESCRIPTION; 

-  THIS  PACKAGE  CONTAINS  THE  PROCEDURES  AND  FUNCTIONS  FOR  IMPLEMENTING 

-  A  GENERIC  LINKED  LIST.  THIS  LINKED  LIST  ACTS  LIKE  A  QUEUE  IN  THE  NEW 

-  NODES  ARE  ALWAYS  ADDED  TO  THE  TAIL  AND  USUALLY  TAKEN  OFF  THE  FRONT. 

-  HOWEVER  NODES  MAY  BE  ACCESS  OR  DELETED  FROM  THE  MIDDLE.  THIS  PACKAGE 

-  FREES  UP  MEMORY  TAKEN  BY  DELETED  NODE. 


-  [optional  piickage  tags] 


;ype  LIST  is  private; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

-  THIS  PRCX'EDURE  ADDS  A  NODE  TO  THE  TAIL  OF  THE  LIST 

-  [formal  ptirameters] 

-  [design] 

-  [optional  subprogram  tags] 

prix-edurc  ADD_TO  (THE_1TEM  ;  in  1TEM_TYPE; 

THE_LIST,  THE_TA1L  :  in  out  LIST); 

prtxedure  ADD_TC)_REVERSE  (THE_ITEM  :  in  ITEM_TYPE; 
THE_L1ST,  THE_TAIL :  in  out  LIST); 


-  FUNCTIONAL  DESCRIPTION: 

-  THE  FUNCTION  RETURNS  THE  VALUE  OF  THE  NODE  POINTED  TO  BY  THE 

-  INPUT  POIbrrER 
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-  [formal  parameters] 

-  [design] 

-  [qttional  subprogram  tags] 

function  GET_NODE  (THE_POINTER  :  in  LIST)  return  ITEM_TYPE; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

-  THIS  PROCEDURE  DELETE  THE  NODE  AT  THE  HEAD  OF  THE  LIST  AND  RETURN 

-  THE  VALUE  OF  THAT  NODE 

-  [formal  parameters] 

-  [design] 

-  [cptional  subprogram  tags] 

procedure  REMOVE_NEXT_NODE  (THE_ITEM :  out  ITEM_TYPE; 

THE_LIST,  THE_TAIL:  in  out  LIST); 


-  FUNCTIONAL  DESCRIPTION: 

-  THIS  PROCEDURE  DELETE  THE  NODE  IN  THE  LIST  WHOS  VALUE  IS  THE  SAME 

-  AS  THE  INPUT  VALUE 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  REMOVE_NODE  (THE_ITEM  :  in  ITEMJTYPE; 

THE.LIST,  THE_TAIL:  in  out  LIST); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

-  THIS  PROCEDURE  SETS  THE  LIST  POINTERS  TO  NULL  AND  FREES  THE  MEMORY 

-  TAKEN  UP  BY  ALLNODE  PREVIOUSLY  IN  THE  LIST 


274 


-  (formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  CLEAR_LIST  (LIST_HEAD,  LIST_TAIL ;  in  out  LIST); 

-  [procedure_header_comment] 

procedure  NULL_POINTER  (LIST_POINTER  :  out  LIST); 


-  ++ 

-  FUNCTIONAL  DESCRIPTION; 

-  THIS  FUNCTION  INCREMENTS  A  GIVEN  POINTER 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

-  {tbs} 


function  NEXT_LINK  (THE_POINTER :  in  LIST)  return  LIST; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

-  THIS  FUNCTION  DETERMINES  IF  THE  GIVEN  POINTER  IS  EQUAL  TO  THE 

-  VALUE  NULL.  IF  TRUE  A  BOOLEAN  TRUE  IS  RETURN,  FALSE  OTHERWISE 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

-  {tbs> 


-  [procedure_header_comment] 

procedure  REVERSE_LIST  (HEAD,  TAIL :  in  out  LIST); 

function  IS_NULL  (THE_LIST_POINTER  :  in  LIST)  return  BOOLEAN; 
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-  FUNCTIONAL  DESCRIPTION: 


-  THIS  FUNCTIONS  DETERMINES  IF  TWO  POINTERS  OF  TYPE  LIST  ARE  EQUAL 

-  AND  RETURNS  THE  APPROIATE  BOOLEAN  ANSWER 


-  [formal  parameters] 

-  [design] 

-  [qjtional  subprogram  tags] 

-  RETURN  VALUE: 

-  {tbs} 


function  IS_EQUAL  (POINTER_ONE,  K)INTER_TWO :  in  LIST)  return  BOOLEAN; 
generic 

with  procedure  PROCESS  (ITEM_ONE,  rTEM_TWO :  in  out  ITEM_TYPE; 
CONTINUE :  out  BOOLEAN); 


-  FUNCTIONAL  DESCRIPTION: 

-  THIS  PROCEDURE  IS  A  G  ENERIC  PROCEDURE  USE  FOR  TRAVERSING  A  LIST 

-  TO  LOOK  FOR  A  SPECEFIC  ELEMENT  OF  A  NODE.  THE  USER  INSTANTIATES  THIS 

-  PROCEDURE  WITH  A  PROCEDURE  THAT  DETERMINES  WHEN  A  MATCH  OCCURS 


-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  ITERATE_LIST  (THE_n'EM  :  in  out  ITEM_TYPE; 
THE_LIST,  THE_TAIL :  in  LIST); 

-  [procedure_header_comment] 

procedure  COPY_LIST  (HEADl ,  TAILl ,  HEAD2,  TAIL2  :  in  out  LIST); 

OVER_FLOW :  exception; 

NOT_IN_LIST :  excepticm; 

UNDER_FLOW ;  exception; 

private 
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type  NODE; 

type  LIST  is  access  NODE; 
type  NODE  is 
recced 

THEJTEM :  ITEM_TYPE; 

NEXT :  LIST; 
end  record; 

-  THir  INSTANTATED  PROCEDURE  FREES  U?  USED  MEMORY  AFTER  A  NODE  IS  DELETED 
procedure  TREE  is  new  UNCHECKED_DEALLOCATION  (OBJECT  =>  NODE, 

NAME  =>  LIST); 


end  LINKED_LIST; 
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-  [source_file_header_comment] 
package  body  LINKED_LIST  is 

-  [package_body_header_comment] 

-  [basic_declarative_item]... 

procedure  ADD_TO  (THEJTEM  ;  in  ITEM_TYPE;  THE_LIST,  THE_TAIL :  in  out  LIST)  is 

-  [procedure_header_comment] 

TEMP_POINTER :  LIST, 
begin 

TEMP_POINTER  ;=  new  NODE’(THE_ITEM  =>  THE_ITEM, 

NEXT  =>  NULL); 
if  THE_LIST  =  NULL  then 
THE_LIST  :=  TEMP_POINTER; 

THE_TAIL  :=  THE_LIST; 
else 

THE_TAIL.NEXT  :=  TEMP_POINTER; 

THE_TAIL  :=  TEMP_POINTER; 
end  if; 
exception 

when  STORAGE.ERROR  => 
raise  OVER_FLOW; 
end  ADD_TO; 

function  GET_NODE  (THE_POINTER  ;  in  LIST)  return  ITEM.TYPE  is 

-  [function_header_comment] 
begin 

if  THE.POINTER  =  NULL  then 
raise  UNDER_FLOW; 
else 

return  THE_POINTER.THE_ITEM; 
end  if; 

end  GET_NODE; 

procedure  REMOVE_NEXT_NODE  (THE_ITEM  :  out  ITEM_TYPE; 

THE_LIST,  THE_TAIL :  in  out  LIST)  is 

-  [procedure_header_comment] 

DUMMY_LIST :  LIST; 

begin 

if  THE_LIST  =  NULL  then 
raise  UNDER_FLOW; 
elsif  THE_LIST  =  THE_TAIL  then 
THEJTEM  :=  THE_LIST.THE JTEM; 

FREE(THE_LIST); 

THE_TAIL  :=  NULL; 
else 


278 


THE_ITEM  :=  THE_LIST.THE_ITEM; 

DUMMY_LIST  ;=  THE.LIST; 

THE.LIST  :=  THE.LIST.NEXT; 

FREE(DUMMY_LIST); 
end  if; 

end  REMOVE_NEXT_NODE; 

procedure  REMOVE_NODE  (THE_ITEM :  in  ITEM_TYPE; 
THE_LIST,  THE_TAIL :  in  out  LIST)  is 

-  [procedure_header_coinment] 

DUMMY.LIST,  POINTER  :  LIST  ;=  THE_LIST; 
TRAIL_POINTER ;  LIST  ;=  NULL; 

begin 

if  THE_LIST  =  NULL  then 
raise  UNDER_FLOW; 
elsif  THE_LIST  =  THE_TAIL  then 
FREE(THE_LIST); 

THE_TAIL  :=  NULL; 
else 

ITERATE;  loop 

exit  ITERATE  when  POINTER.THE_ITEM  =  THEJTEM; 
TRAIL_POINTER  :=  POINTER; 

POINTER  :=  POINTER.NEXT; 
if  POINTER  =  NULL  then 
raise  NOTJN_LIST; 
end  if; 

end  loop  ITERATE; 
if  TRAIL_POINTER  =  NULL  then 
THE_LIST  :=  THE_LIST.NEXT; 
elsif  POINTER  =  THE_TAIL  then 
THE_TAIL  ;=  TRArL_POINTER; 

FREE(POINTER); 

else 

DUMMY_LIST  ;=  TRAIL.POINTER.NEXT; 

TRAIL_POINTER.NEXT  :=  POINTER.NEXT; 
FREE(DUMMY_LIST); 

end  if; 
end  if; 

end  REMOVE.NODE; 

procedure  CLEAR_LIST  (LIST_HEAD,  LIST_TAIL :  in  out  LIST)  is 

-  [procedure_header_comment] 


279 


DEALLOCATE_POINTER  :  LIST  ;=  LIST_HEAD; 

DUMMY_POINTER :  LIST; 
begin 

while  DEALLOC  ATE_POINTER  /=  NULL  loop 
DUMMY_POTN  lER  :=  DEALLOCATE.POINTER; 

DEALLOCATE_POINTER  ;=  DEALLOCATE_POINTER.NEXT; 

FREE(DUMMY_POINTER); 
end  loq); 

LIST_HEAD  :=  NULL; 

LIST_TAIL  :=  NULL; 
enu  CLEAR_LIST; 

procedure  NULL_POINTER  (LIST_POINTER  :  out  LIST)  is 

-  [pr(x:edure_header_coininent] 
begin 

LIST_POINTER  :=  NULL; 
end  NULL_POINTER; 

function  NEXT.LINK  (THE_POINTER  :  in  LIST)  return  LIST  is 

-  [function_header_comment] 
begin 

if  THE.POINTER  =  NLT.L  then 
raise  UNDER.FLUW; 
else 

return  THE.POINTER.NEXT; 
end  if; 

end  NEXT_LINK; 

procedure  ADD_TO_REVERSE  (THEJTEM  :  in  ITEM_TYPE;  THE_LIST,  THE_TAIL :  in  out  LIST) 

-  [procedure_header_commenl] 

TEMP^POINTER :  LIST; 

begin 

TEMP_POINTER  :=  new  NODE’(THE_ITEM  =>  THE_ITEM, 

NEXT  =>  NULL); 
if  THE_LiST  =  NULL  then 
THE_LIST  :=  TEMP_POINTER; 

THE_TAIL  :=  THE_LIST; 
else 

TEMP_POINTER.NEXT  :=  THE.LIST; 

THE_LIST  :=  TEMP.POINTER; 
end  if; 
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exception 

when  ST0RAGE_ERR0R  => 
raise  OVER_FLOW; 
end  ADD_TO_REVERSE; 

procedure  REVERSE_LIST  (HEAD,  TAIL :  in  out  LIST)  is 

-  [procedure_header_comment] 

REV_HEAD,  REV_TAIL :  LIST  :=  NULL; 

THISJTEM :  ITEM_TYPE; 
begin 
loop 

REMOVE_NEXT_NODE(THIS_ITEM,HEAD,TAIL); 
ADD_TO_REVERSE(THIS_ITEM,REV_HEAD,REV_TAIL); 
end  loop; 
exception 

when  UNDER_FLOW  => 

HEAD  ;=  REV_HEAD; 

TAIL;=REV_TAIL; 
end  REVERSE_LIST; 

funcUon  IS_NULL  (THE_LIST_POINTER  :  in  LIST)  return  BOOLEAN  is 

-  [functioii_header_comment] 

FLAG  :  BOOLEAN  :=  FALSE; 

begin 

if  THE_LIST_POINTER  =  NULL  then 
FLAG  :=  TRUE; 
end  if; 

return  FLAG; 
end  IS_NULL; 

function  IS_EQUAL  (POINTER.ONE,  POINTER.TWO :  in  LIST)  return  BOOLEAN  is 

-  [function_header_comment] 
begin 

if  POINTER.ONE  =  POINTER_TWO  then 
return  TRUE; 
else 

return  FALSE; 
end  if; 

end  IS_EQUAL; 

procedure  COPY_LIST  (HEADl ,  TAILl ,  HEAD2.  TAIL2  :  in  out  LIST)  is 

-  iprocedure_header_comment] 
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LIST_POINTER ;  LIST  :=  HEADl; 

THEJTEM :  ITEM_TYPE; 
begin 
loop 

THE.ITEM  :=  GET_NODE(LIST_POINTER); 
LIST_POINTER  ;=  NEXT_LINK(LIST_POINTER); 
ADD_TO(THE_ITEM,  HEAD2,  TAIL2); 
end  loop; 
exception 

when  UNDER_FLOW  => 

NULL; 

end  COPY_LIST; 

procedure  ITERATE.LIST  (THE_ITEM  :  in  out  ITEM.TYPE; 

THE_LIST,  THE_TAIL :  in  LIST)  is 
-  [procedure_header_comment] 

POINTER  :  LIST  :=  THE_LIST; 

CONTINUE  :  BOOLEAN  :=  TRUE; 
begin 

while  CONTINUE  =  TRUE  loop 
if  THE_LIST  =  NULL  OR  POINTER  =  NULL  then 
raise  NOT_IN_LIST; 
end  if; 

PROCESS(POINTER.THE_ITEM,THE_ITEM,CONTINUE); 
K)INTER  :=  POINTER.NEXT; 
end  loop; 

end  ITERATE_LIST; 

-  [later_declarauve_item]... 

-[executable_part] 
end  linked_LiST; 
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WITH  TEXT_IO; 


PACKAGE  STRING.OPERATIONS  IS 


-  THE  PURPOSE  OF  THIS  PACKAGE  IS  TO  DEHNE  THE  VARIABLE  STRING  DATA  TYPE  AND 

-  PROVIDE  THE  VARIABLE  STRING  INPUT,  OUTPUT,  AND  EQUALITY  FUNCTIONS. 


-  DATE:  5  SEP  90 

-  VERSION:  3 

-  AUTHOR:  THOMAS  RATHBUN 

-  TITLE:  VARIABLE  STRING  DATA  TYPE  AND  I/O  AND  EQUALITY  OPERATIONS 

-  FILENAME:  STRING_OPERATIONS.ADA 

-  OPERATING  SYSTEM:  VMS  5.3 

-  LANGUAGE:  ADA 

-  THIS  FILE  IS  A  SELF  STANDING  COMPILABLE  UNIT. 

-  THE  PACKAGE  CONTAINS  2  PROCEDURES  FOR  INPUT  AND  OUTPUTING  DATA  OF 

-  VAR.STRING  TYPE  AND  1  FUNCTION  FOR  DETERMINING  EQUALITY 


type  VAR_STRING  is  private; 

-  PROCEDURE  PUT  IS  FOR  OUTPUTING  DATA  OF  TYPE  VAR.STRING 
PROCEDURE  PUT  (ITEM:  IN  VAR.STRING); 

-  PROCEDURE  PUT  IS  FOR  OUTPUTING  DATA  OF  TYPE  VAR_STKING 
PROCEDURE  PUT  (FILE  :  in  out  TEXT_IO.nLE_TYPE;  ITEM:  IN  VAR_STRING); 

-  PROCEDURE  PUT  IS  FOR  OUTPUTING  DATA  OF  TYPE  VAR_STRING 
PROCEDURE  PUT_LINE  (ITEM:  IN  VAR_STRING); 


-  [procedure_header_commentl 

procedure  PUT_LINE  (RLE  :  in  out  TEXTJO.RLE.TYPE; 

ITEM :  in  VAR_STRING); 

-  PROCEDURE  GET_LINE  IS  FOR  INPUTING  DATA  OF  TYPE  VAR.STRING 
PROCEDURE  GET_LINE(ITEM:  OUT  VAR_STRING); 


-  ++ 
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-  FUNCTIONAL  DESCRIPTION: 


This  procdure  reads  a  text  line  from  a  file  tmd  stores  it 

-  in  a  var_string  variable 

-  [formal  parameters] 

-  [design] 

-  [qjtiontU  subprogram  tags] 

pnxedure  GET_LINE  (FILE :  in  out  TEXTJO.nLE_TYPE; 
ITEM :  out  VAR_STRING); 


-  ++ 


-  FUNCTIONAL  DESCRIPTION: 


This  procedure  opens  a  file  whos  filename  is  a  var_string  type 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

prcxedure  OPEN  (RLE  :  in  out  TEXTJO.FILE.TYPE; 

MODE :  in  TEXT_IO.FlLE_MODE; 

NAME :  in  VAR_STRING; 

FORM  :  in  STRING  := 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  prxxedure  creates  a  file  who’s  filename  is  a  var_string 

-  type 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

procedure  CREATE  (FILE :  in  out  TEXT_IO.FILE_TYPE; 
MODE :  in  TEXT_IO.nLE_MODE; 

NAME :  in  VAR_STRING; 
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FORM  :  in  STRING  := 


-  ++ 


-  F-UNCTIONAL  DESCRIPTION: 


This  prcxedure  stcTcs  a  text  string  in  a  v:ir_siring  variable 

-  [formal  parameters) 

-  [design] 

-  [optional  subprogram  tags) 

procedure  ASSIGN  (LEFT_VAR_STRING  :  (Xii  VAR_STRING;  RIGHT_STRING  :  in  STRING); 


-  ++ 

-  EUNCTIONAL  DESCRIPTION; 

This  funcUtxi  comptires  to  var_string  vtiriablcs 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

true  or  false 


FUNCTION  IS_EQUAL  (LEFT,  RIGFTT :  in  VAR_STR1NG)  return  BOOLEAN; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  function  comptires  a  v;ir_string  variable  with  s  string 

-  viiriable 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE; 

true  or  false 
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FUNCTION  IS.EQUAL  (LEFT  ;  in  VAR_STRING;  RIGHT :  in  STRING)  return  BOOLEAN; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  functicai  concatenates  two  var_string  variables 

-  [forma;  parameters] 

-  [design] 

-  [cptional  subprogram  tags] 

-  RETURN  VALUE: 

var_string 


function  (LEFT,  RIGHT :  in  VAR_STRING)  return  VAR_STRING; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  function  concatenates  a  string  variable  and  a  var_string 

-  variable 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

var_string 


function  “&”  (LEFT :  in  STRING;  RIGHT :  in  VAR_STRING)  return  VAR_STRING; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  function  cc«catenates  a  var_string  variable  and  a  string 

-  varable 

-  [formal  parameters] 
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-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

var_string 


funcUon  (LEFT :  in  VAR_STRING;  RIGHT :  in  STRING)  return  VAR.STRING; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  function  concatenates  two  string  variables 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

var_string 


funcUOT  (LEFT,  RIGHT :  in  STRING)  return  VAR.STRING; 

-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  function  concatenates  a  var_string  variable  and  a 

-  character  vaiable 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

var_string 


funcUon  (LEFT :  in  VAR.STRING;  RIGHT :  in  CHARACTER)  return  VAR_STRING; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 
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This  funcitcm  concatenates  a  string  variable  and  a  character 

-  variable 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE; 

var_string 


functicxi  (LEFT :  in  STRING;  RIGHT :  in  CHARACTER)  return  VAR_STRING; 


-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  function  returns  the  string  value  of  a  var_string  variable 

-  [formal  parameters] 

-  [design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

string 


function  STRING. VALUE  (A.STRING  :  in  VAR.STRING)  return  STRING; 

-  ++ 

-  FUNCTIONAL  DESCRIPTION: 

This  function  returns  the  character  at  a  position  in  a 

-  var.string  variable 

-  [formal  parameters] 

-  [design] 

-  [optic»al  subprogram  tags] 

-  RETURN  VALUE: 

character 
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function  STRING_ VALUE  (POSITION ;  INTEGER;  A_STRING  :  in  VAR_STRING)  return  CHAR¬ 
ACTER; 


-  FUNCTIONAL  DESCRIPTION: 

This  functiCM  returns  the  string  length  of  a  var_string  variable 

-  [formal  parameters] 

-  (design] 

-  [optional  subprogram  tags] 

-  RETURN  VALUE: 

-  {tbs} 


funcUoi  STRING_LENGTH  (A_STRING  :  in  VAR_STRING)  return  INTEGER; 
private 

-  DECLARE  DATA  TYPE  VAR_STRING 
TYPE  VAR.STRING  IS 
RECORD 

THE_LENGTH:  NATURAL  :=  0;  -  number  of  characters  in  string 
THEJTEMS:  STANDARD.STRING  (1..80)  :=  (‘  '.OTHERS  =>  ' '); 

END  RECORD; 

BLANK_STRING :  VAR.STRING; 

END  SlRING_OPERATIONS; 
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PACKAGE  BODY  STRING.OPERATIONS  IS 

PROCEDURE  PUT  (ITEM:  IN  VAR_STRING)  IS 


-  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  PRINT  THE  DATA  CONTAINED  IN  A  VAR_STRING 
-DATATYPE 


BEGIN 

-  OUTPUT  DATA  IN  A  VAR.STRING  DATA  TYPE  VARIABLE 
TEXT_IO.PUT(ITEM.THE_ITEMS(l..ITEM.THE_LENGTH)); 


END  PUT; 


PROCEDURE  PUT  (HLE  :  in  out  TEXT_IO.FILE_TYPE;  ITEM:  IN  VAR.STRING)  IS 


-  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  PRINT  THE  DATA  CONTAINED  IN  A  VAR_STRING 
-DATATYPE 


BEGIN 

-  OUTPUT  DATA  IN  A  VAR.STRING  DATA  TYPE  VARIABLE 
TEXT_IO.PUT(FILE  =>  RLE,  ITEM  ==>  ITEM.THE_ITEMS(1..ITEM.THE_LENGTH)); 

END  PUT; 

PROCEDURE  PUT_LINE  GTEM:  IN  VAR_STRING)  IS 

-  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  PRINT  THE  DATA  CONTAINED  IN  A  VAR_STRING 
-DATATYPE 


BEGIN 

-  OUTPUT  DATA  IN  A  VAR.STRING  DATA  TYPE  VARIABLE 
TEXT_IO.PUT_LINE(ITEM.THEJTEMS(l..ITEM.THE_LENGTH)); 

END  PUT_LINE; 

procedure  PUT_LINE  (FILE :  in  out  TEXT_IO.FILE_TYPE; 

ITEM  :  in  VAR_STRING)  is 

-  [procedure_header_cominent] 
begin 
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TEXTJOJ>UT_LINE  (FILE  =>  HLE,  ITEM  =>  STRING_VALUE(ITEM)); 
end  PUT_LINE; 

PROCEDURE  GET_LINE(ITEM;  OUT  VAR_STRING)  IS 


-  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  READ  IN  DATA  AND  TRANSFORM  IT  INTO 
-THE  VAR  STRING  DATATYPE 


WHOLE.LINE:  STRING  (I. .80);  -  USED  TO  READ  IN  THE  ENTIRE  LINE 
LINE_LENGTH;  INTEGER;  -  RECORDS  THE  AMOUNT  OF  CHARACTERS  READ  IN 

BEGIN 

-  READ  IN  ENTIRE  LINE  OF  CHARACTERS 
TEXT_IO.GET_LINE(WHOLE_LINEJLINE_LENGTH); 

-  TRANSFER  THE  PERTINET  DATA  THROUGH  STRING  SLICES 
ITEM.THE_ITEMS(1..LINE_LENGTH)  :=  WHOLE_LINE(L.LINE_LENGTH); 

-  RECORD  THE  AMOUNT  OF  CHARACTERS  READ  IN 
ITEM.THE.LENGTH  :=  LINE_LENGTH; 

END  GET.LINE; 


procedure  GET_LINE  (FILE ;  in  out  TEXTJO.HLE.TYPE; 

ITEM  :  out  VAR_STRING)  is 
-  [procedure_header_comment] 
begin 

TEXT_IO.GET_LINE  (HLE  =>  HLE, 

ITEM  =>  ITEM.THEJTEMS, 

LAST  =>  ITEM.THE_LENGTH); 
end  GET.LINE; 


procedure  OPEN  (FILE  :  in  out  TEXT_IO.FILE_TYPE; 
MODE :  in  TEXT_IO.FILE_MODE; 

NAME :  in  VAR_STRING; 

FORM  :  in  STRING  :=  “”)  is 
-  [procedure_header_cc»nment] 
begin 

TEXTJO.OPEN  ( 

FILE  =>  FILE, 

MODE ->  MODE, 
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NAME  =>  NAME.THE_ITEMS(1..NAME.THE_LENGTH), 

FORM  =>  FORM); 
end  OPEN; 

procedure  CREATE  (FILE :  in  out  TEXTJO.nLE_TYPE; 

MODE :  in  TEXT_IO.FILE_MODE; 

NAME :  in  VAR_STRING; 

FORM  :  in  STRING  :=  “”)  is 

-  [procedure_header_comment] 
begin 

TEXTJO.CREATE  ( 

FILE  =>  FILE, 

MODE  =>  MODE, 

NAME  =>  NAME.THE_ITEMS(1..NAME.THE_LENGTH), 

FORM  =>  FORM); 
end  CREATE; 

procedure  ASSIGN  (LEFT_VAR_STRING  :  out  VAR_STRING;  RIGHT_STRING  :  in  STRING)  is 

-  (procedure_header_comnient] 
begin 

if  RIGHT.STRING’LAST  =  0  then 
LEFT_VAR_STRING.THE_LENGTH  :=  0; 
else 

LEFr_VAR_STRING.THE_ITEMS(l..RIGHT_STRING’LAST)  :=  RIGHT.STRING; 
LEFT_VAR_STRING.THE_LENGTH  :=  RIGHT_STRING’LAST; 
end  if; 

end  ASSIGN; 

funcUon  IS_EQUAL  (LEFT,  RIGHT ;  in  VAR_STRING)  return  BOOLEAN  IS 
BEGIN 

-  COMPARE  JUST  THE  PERTINET  PART  OF  THE  STRING  USING  STRING  SLICES 

IF  LEFT.THE_ITEMS(1..LEFT.THE_LENGTH)  =  RIGHT.THE_ITEMS(1..RIGHT.THE_LENGTH) 
THEN 

-  RETURN  TRUE  WHEN  EQUAL 
RETURN  TRUE; 

ELSE 

-  RETURN  FALSE  WHEN  NOT  EQUAL 
RETURN  FALSE; 
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END  IF; 


END  IS_EQUAL; 

funcUon  IS_EQUAL  (LEFT :  in  VAR_STRING;  RIGHT ;  in  STRING)  return  BOOLEAN  IS 
BEGIN 

-  COMPARE  JUST  THE  PERTINET  PART  OF  THE  STRING  USING  STRING  SLICES 
IF  LEFT.THEJTEMS(I  ..LEFT.THE.LENGTH)  =  RIGHT  THEN 

-  RETURN  TRUE  WHEN  EQUAL 
RETURN  TRUE; 

ELSE 

-  RETURN  FALSE  WHEN  NOT  EQUAL 
RETURN  FALSE; 

END  IF; 

END  IS.EQUAL; 

function  (LEFT.  RIGHT :  in  VAR_STRING)  return  VAR_STRING  is 

-  [functicm_header_coniment] 

DUMMY ;  VAR_STRING; 
begin 

if  LEFT.THE_LENGTH  =  0  then 
return  RIGHT; 

elsif  RIGHT.THE_LENGTH  =  0  then 
return  LEFT; 
else 

DUMMY  :=  LEFT; 

DUMMY.THE_ITEMS(DUMMY.THE_LENGTH+ 1  ..DUMMY.THE_LENGTH+RIGHT.THE_LENG 
TH)  :=  RIGHT.THE_ITEMS(1..RIGHT.THE_LENGTH); 

DUMMY.THE_LENGTH  :=  DUMMY.THE_LENGTH+RIGHT.THE_LENGTH; 

return  DUMMY; 

end  if; 

end 

funcUon  (LEFT :  in  STRING;  RIGHT :  in  VAR_STRING)  return  VAR_STRING  is 

-  [function_header_coniment] 

DUMMY :  VAR_STRING; 
begin 
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DUMMY.THE_ITEMS(1..LEFT’LAST)  :=  LEFT; 

DUMMY.THE_LENGTH  ;=  LEFT’LAST; 
if  RIGHT.THE_LENGTH  /=  0  then 
DUMMY  :=  DUMMY&RIGHT; 
end  if; 

return  DUMMY; 
end 

functicM  (LEFT :  m  VAR.STRING;  RIGHT :  in  STRING)  return  VAR_STRING  is 

-  [function_header_comment] 

DUMMY :  VAR  STRING; 

■  I 

begin 

DUMMY.THE_ITEMS(1..RIGHT’LAST)  :=  RIGHT; 

DUMMY.THE_LENGTH  :=  RIGHT’ LAST; 

LfLEFT.THE  LENGTH /=  0  then 

“  I 

DUMMY  :=  LEFT&DUMMY; 
end  if; 

return  DUMMY; 
end 

function  (LEFT.  RIGHT :  in  STRING)  return  VAR_STRING  is 

I 

-  [function_header_contnient] 

DUMMY  1, DUMMY :  VAR_STRING; 
begin 

DUMMY.THE_ITEMS(L. LEFT’LAST)  :=  LEFT; 

DUMMY.THE_LENGTH  :=  LEFT’LAST; 

DUMMY l.THE_I-reMS(l .  RIGHT’LAST)  :=  RIGHT; 

DUMMY l.THE_LENGTH  :=  RIGHT’LAST; 
return  DUMMY&DUMMYI; 
end 

function  (LEFT :  in  VAR.STRING;  RIGHT :  in  CHARACTER)  return  VAR.STRING  is 

-  [function_header_comnient] 

DUMMY :  VAR.STRING; 
begin 

DUMMY.THE_ITEMS(I)  :=  RIGHT; 

DUMMY.THE_LENGTH  :=  I; 
if  LEFT.THE_LENGTH  /=  0  then 
DUMMY LEFT&DUMMY; 
end  if; 

return  DUMMY; 
end  “&”; 
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funcUon  (LEFT :  in  STRING;  RIGHT ;  in  CHARACTER)  return  VAR_STRING  is 

-  [function_header_comment] 

DUMMYl.DUMMY :  VAR_STRING; 
begin 

DUMMY.THE_ITEMS(1..LEFT’LAST)  :=  LEFT; 

DUMMY.THE_LENGTH  :=  LEFT’LAST; 

DUMMY1.THE_ITEMS(1)  :=  RIGHT; 

DUMMY  LTHE_LENGTH  :=  1; 
return  DUMMY&DUMMYl; 
end 

function  STRING_VALUE  (A_STRING  :  in  VAR.STRING)  return  STRING  is 

-  [function_header_comment] 
begin 

return  A_STRING.THE_ITEMS(  1 .. A_STRING.THE_LENGTH); 
end  STRING_VALUE; 

function  STRING_VALUE  (POSITION  :  INTEGER;  A_STRING  :  in  VAR.STRING)  return  CHAR¬ 
ACTER  is 

-  (function_header_conunent] 
begin 

return  A_STRING.THEJTEMS(POSITION); 
end  STRING_VALUE; 

function  STRING_LENGTH  (A_STRING  :  in  VAR_STRING)  return  INTEGER  is 

-  [functiOD_header_comment] 
begin 

return  A_STRING.THE_LENGTH; 
end  STRING_LENGTH; 

END  STRING_OPERATIONS; 
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